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PRIME DOCUMENTATION TYPES 



IDR Initial Documentation Release: provides usable.^accurate advanced information. 

PDR Preliminary Documentation Release: provides more complete and accurate information about the product, 
but is not in final format. 

FDR Final Documentation Release: a complete product description; edited, formatted and presented in Prime's 
highest standards. The Programmer's Companion* is another type of FDR; a series of pocket-size, quick 
reference guides on Prime software products. 

PTU Prime Technical Update: interim updates to existing documents. 



PRIME'S CDBOL PROGRAMMER'S GUIDE (Rev. A, September 1978) 

This guide documents Prime COBOL and all supporting PRIMOS operating 
system features as implemented at Master Disk Revision Level 14. 
Enhancements to COBOL, PRIMOS, and supporting utilities at Revision 15 
are given in Appendix K. The index reflects this new organization. 
Typographic errors, corrections, etc. in the Rev. 14 PDR have been 
incorporated into the text of this guide. 

This guide is organized to make life easier for you, the COBOL 
application programmer. 

We assume you know COBOL, and will easily adapt to Prime's 
implementation and extensions, which are fully defined in the reference 
sections of this guide. 

PRIMOS, on the other hand, is a large and versatile operating system. 
It is no small task to sift through all the reference documentation for 
PRIMOS and its file system, libraries, utilities, and supporting 
software to find v*iat you need to get a COBOL application running. 

To save you trouble, we've done all that for you in the early sections 
of this guide, by: 

• Selecting the PRIMOS capabilities that are of key importance to 
the COBOL programmer. 

• Presenting these capabilities in the usual order of COBOL 
program development. 






Including all the details on the essential tools. 
Summarizing optional, convenience, and advanced features. 



• Leaving out what is irrelevant. 

The result is a single document containing everything you need to know 
to write, modify, compile, load, execute, and debug most COBOL 
application programs. 

In exceptional cases, you may need to refer to supporting reference 
documents. For example, this guide gives enough information on Prime's 
DBMS, MIDAS, and FORMS subsystems for you to evaluate whether they are 
useful to your application. To develop applications using these 
canplex subsystems, however, you need access to the complete details in 
the reference documents. 

We hope you will find this to be a helpful guide to the particulars of 
COBOL programming within the PRIMOS operating system. We invite 
ccmments on the organization and philosophy of this guide, as well as 
its contents, accuracy, and clarity. 
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PDR3056 INTRODUCTION 

SECTION 1 
INTRODUCTION 

THIS DOCUMEOT 

Purpose and Audience 

The purpose of this manual is to provide the experienced COBOL program- 
mer with a guide to efficient COBOL usage in the Prime Environment. 

Newcomers to Prime will find in Parts 1 and 2 the introduction and guide 
they require to apply COBOL in the new environment. 

The user familiar with Prime may wish to skim Parts 1 and 2 of this man- 
ual. 

Advanced concepts and reference are geared to all COBOL users. 
Organization and Usage 

It is envisioned that this manual will be examined fran several different 
viewpoints. For maximum benefit in any application, the user should be 
familiar with its organization. 

In this connection, the Table of Contents is a guide not only to content, 
but to order as well; while the index will provide the most direct access 
to specifics. 

The reader should also familiarize himself with the kinds of information 
available in the Appendices, since they represent a capsule form of re- 
peatedly used data. Various versions of tables are here incorporated 
into one format, error messages are alphabetically stated, COBOL symbols 
are presented in capsule form, as are Reserved Words. 

This manual is cross-referenced and contains frequent pointers to other 
documentation for in-depth discussion of system features. 

This document is organized into four major parts: 

1. An overview of Prime's COBOL (Sections 1 through 3). 

2. Using the Prime System (Sections 4 through 9). 

3. Advanced Concepts (Sections 10-11) 

4. Reference (Sections 12-22 and Appendices A-J). 
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Part 1, An Overview of Prime's COBOL, discusses Prime's system features, 
the PRIMOS interactive environment, and Prime's COBOL. As an overview, 
this part is meant to introduce the uninitiated user to a time- shared, 
multi-user, interactive system, with its potential for COBOL. The ex- 
perienced user will here find a summary of Revision 14 enhancements to 
the COBOL language and Prime system facilities. 

Part 2, Using the Prime System, is a tutorial. Its sections will take 
a new Prime user through those stages required to successfully create 
and execute COBOL programs on a Prime system. 

The first concern is system access. System level commands are listed 
and summarized in Section 4. The system Editor is then presented as a 
means for entering and modifying data in general, and source programs 
in particular. 

The remainder of Part 2 is organized to reflect the sequence of steps 
necessary to compile, load, execute and sort COBOL programs. System 
utility programs useful in this connection are explained in detail, 
with in-line examples and complete command summaries. These are organ- 
ized into self-contained sections on the Compiler, the Linking Loader, 
SEG, and Sort procedures. 

When a quick reference rather than a tutorial is wanted, the user will 
find capsulized versions of the Compiler and SEG sections repeated in 
Part 4. 

Part 3, Advanced Concepts, addresses system and time efficient proce- 
dures. Its audience is both the new and the experienced Prime COBOL 
user. 

Treatement of COBOL program environments is here expanded, with discus- 
sion including command files, phantom users, CX mode, and shared pro- 
cedures . 

Management systems are introduced and discussed in relation to COBOL 
interface. Those aspects of MIDAS (Multiple Keyed Index Data Access 
System) most commonly utilized in COBOL applications are treated in 
detail. 

Throughout Part 3, the approach remains tutorial, including many exam- 
ples. To accomodate the large spectrum of user applications, frequent 
reference is made to additional sources of information. 

Part 4, Reference, provides syntactical and general COBOL specifications; 
it is patterned after the ANSI standards. Its four main subdivisions 
are: 

Fimdamental Concepts of COBOL 

Nucleus 

Functional Processing Modules 

Utilities 
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Fundamental Concepts of COBOL defines and enhances the Nucleus and 
Functional Progressing Modules. The Nucleus sets forth the structure 
and governing rules for COBOL' s four divisions: Identification 
Environment, Data, and Procedure. The Functional Processing Modules 
include Inter-program Communication, Table Handling, Indexed I-O, and 
Relative I-O. Utilities is a reference presentation of the Prime 
COBOL Conpiler and the SEG utility program. 

Effective usage of the Reference requires considerable knowledge of 
its organization: 

In Fundamental Concepts, the user will find a generalized COBOL pro- 
gram summary, together with a skeletal component structure for such a 
program. These are expanded in the example program, SAMPLE which follows 
follows with its Listing File. This summary is a thjmb-nail presenta- 
tion of required and optional program structure, which is expanded 
throughout the Nucleus. 

The Nucleus presents information related to the Identification, Environ- 
ment, Data and Procedure Divisions (Section 13 through 16 respectively). 

Each sections begins with a thumb-nail, skeletal ccmponent format for 
the program division it discusses. This is expanded throughout the 
section in the sequence in which it must appear. 

COBOL verbs are presented alphabetically in Section 16, the Procedure 
Division. A quick verb index precedes this data and appears also in 
Appendix D. 

At the close of each division section, the user will find an example of 
source coding for that given division. These examples form a functional 
program, REF2, which illustrates the interrelationship of canponent 
parts. The CCMPILE, LOAD, CREATK, and EXECUTE sequences for REF2 are 
presented immediately following the program exanple at the close of 
Section 16. These, and the compiled Listing File which accompanies therii, 
form an integrated COBOL picutre. They relate both to program division 
discussion in Part 4, and to their corresponding tutorial sections in 
Part 2 . 

A VMODE Expanded Listing for REF2 appears in Appendix J. 

Functional Processing Modules are self-contained, often restating concepts, 
data descriptions, and COBOL statanent formats elsewhere described. The 
reader will here find all related data in a single location for maximum 
utility and efficiency. For example, the READ verb is presented in the 
Procedure Division. It is restated in the Indexed I-O Functional Process- 
ing Module, together with related data pertinent to Indexed I-O process- 
ing. 
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This Version 

This is a Preliminary Documentation Release (FDR) . It represents a 
SECOND draft, providing more complete and accurate information about 
the product than previously available, but not in itself complete. 

Thus, those sections still incomplete are listed in the Table of 
Contents and outlined in place. Such sections will be finalized and 
incorporated into a Final Documentation Release (FDR) . The FDR will 
represent the complete product description up to the stated software 
revision number and be produced in typeset format. 



PRIME CONVENTIONS 



Symbols, abbreviations, special characters and conventions frequently 
iised in Parts 1, 2, and 3 of this document are defined below. 



Terminal Functions: 



Character 
(CR) 
\ 



Prime Filename Conventions: 

Filename 
&<-filename 
L"^ilename 
C*"filename 
filename 
*filename 
M<filename 
#filename 



Function 
Carriage return. 

Backslash. Used as Editor's 
tab character. 

Delete or erase symbol to delete 
one preceding character. 

Kill character to delete all 
characters in current command 
line. 



Function 

Binary (object) file. 

Listing file. 

Command file. 

Source file. 

SAVED (Executable) file. 

Map file. 

SEG runfile. 
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NOTES : 

1. New file partitions accept a maximum of 32 characters for 
filename. 

2. The two character sequence -<- in a filename represents only a 
single character. This character is the back-arrow on the 
terminal keyboard which prints as an imderscore on output 
devices. Since this is inconvenient in text examples which 
use underlining, the " *■" convention has been adopted. 

Text Conventions: 

ALL CAPS An item which must be included verbatim. 

Underlines indicate acceptable abbreviations. 

Underlining Indicates user input in examples. 

RELATED DOCUMENTS 

The following documents include information on the PRIMOS system and 
Prime Utility programs. They will be important adjuncts to this 
release: 

Title Manual No. 



Reference Guide, PRIMOS Commands PDR 3108 

The System Administrator's Guide IDR 3109 

FORMS Management System (FORMS] IDR 3040 
User Guide for the Data base Administrator IDR 3043 

Reference Guide for DBMS Schema DDL IDR 3044 

COBOL Reference Guide for DBMS IDR 3046 

The PMA Programmer's Guide PDR 3059 

Reference Guide, Multiple Index PDR 3061 

Data Access System (MIDAS) 

The New User's Guide to Editor FDR 3104 

and Run off 

Reference Guide, Software Library PDR 3106 

Reference Guide, File Management PDR 3110 

System (FMS) 
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SECTION 2 
PRIME COBOL 



FEATURES 

Prime COBOL is based upon American National Standard X3. 23-1974. Ele- 
ments o£ the COBOL language are allocated to twelve different functional 
processing "modules". 

Each module of the COBOL Standard has two non-null "levels" --level 1 
represents a subset of the full set of capabilities and features con- 
tained in level- 2. 

In order for a given system to be called COBOL, it mtist provide at least 
level 1 of the Nucleus, Table Handling and Sequential I-O modules. 

The following summary specifies the content of Prime COBOL with respect 
to the Standard. 



Module 



Nucleus 



Sequential 1-0 



Relative 1-0 



Features Available in Prime COBOL 

All of level 1, plus these features of level 2: 
Levels 77 _, 01-30, 88; 

Value series or range, level 88 conditions; 
AND OR = < > in conditions; 
Procedure -names consisting of digits only; 
COMPUTE with multiple receiving fields; 
PERFORM VARYING one index; 

Mnemonic -names for ACCEPT or DISPLAY devices ; 
Qualification of Names (Procedure Division) ; 
Sign test; 

STRING; (supported in V-Mode only) 
UNSTRIN3; (supported in V-Mode only) 

(DAY ' 

accept j time ,• . 
(date ) 

All of level 1 plus these features of level 2: 
RESERVE clause and variable form of BLOCK; 
Multiple operands in OPEN § CLOSE, with individual 
option per file. 

All of level 1 plus: 
RESERVE clause; 

DYNAMIC access mode (with READ next) ; 
START (with key relations EQUAL, GREATER, or NOT 
LESS) . 
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Module 
Indexed I-O 



Library 
Table Handling 



Inter-program 
Communication 
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Features Available in Prime COBOL 

All of level 1 plus: 
RESERVE clause; 

DYNAMIC access (with READ next) ; 
RANDOM access mode with READ by KEY; 
START (with key relations EQUAL, GREATER, 
NOT LESS). 

Level 1 

All o£ level 1 plus: 
SEARCH 



Level 1 



SYSTEM FILES 

To utilize COBOL, the following files must be available on the system 
in the UFD's specified: 



UFD 


FILE-NAME 


CMDNCO 


COBOL 


SYSOVL 


C$$DAT 
C$$DAR 
C$$GEN 
C$$FIN 
C$$END 
C$$64V 


LIBRARY 


COBLIB 




COBKID 




VCOBLB 




FTNLIE (RHODE) 



PFTNIB 1 (,r^^r^v^ 
IFTOLB / f^^OE^ 
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PRIME COBOL 



VCOBLB 

The new VCOBLB 

C$ADAT 

C$ADAY 

C$ATIM 



C$INSP 

C$UNS1/C$UNS2 

C$STR1/C$STR2 

C$IN 

c$os 
c$cs 

C$RS 

c$xs 
c$ws 

C$OI/C$OR 
C$CI/C$CR 
C$RI/C$RR 
C$WI/C$WR 
C$XI/C$XR 
C$SI/C$SR 
C$DI/C$DR 



Library contains the following common COBOL subroutines, 

= returns current data in format YMMDD 

= returns Julian date in format YYDDD 

= returns current time in format HHMMSSFF 

H = Hour 

M = Minutes 

S = Seconds 

F = Hundreth of seconds 

= INSPECT statement 

= UNSTRING statement 

= STRING statement 

= File assignment initialization 

= Open sequential file 

= Close sequential file 

= Read sequential file 

= Rewrite sequential file 

= Write sequential file 

= Open indexed/ relative file 

= Close indexed/ relative file 

= Read indexed/ relative file 

= Write indexed/relative file 

= Rewrite indexed/relative file 

= Start indexed/relative file 

= Delete indexed/relative file 



2 - 3 
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SECTION 3 
COBOL AND PRIMOS 

OPERATING SYSTEM MODES 

64R Mode, Prime 300, 400, 500 

64V Mode, Prime 400, 500 

FILE SYSTEM SUMMARY 

PROGRAM ENVIRONf-lENTS 

I nteractive 

Queued Jobs Using Command Files 

Phantom Users 

CX, Sequential Job Processor 

Shared Procedures 

SYSTEM RESOURCES SUPPORTING COBOL 

The portions of SECTION 3 outlined above were incomplete at this 
printing. 
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SECTIC»I 4 
SYSTEM ACCESS 

This section treats the following topics: 

• Accessing the syston 

• PRIMOS command summary 

• Program and data entry from other media 

• Entering and modifying data: the Editor 

SYSTEM CONCEPTS 

Certain Prime system conventions and concepts are employed throughout 
this document. They are basic to effective usage of COBOL and PRIMOS. 

B a s ic Concepts 

file An organized collection of information stored on a disk 
(or a peripheral storage medium such as tape) . Each 
file on a disk has an identifying label called a 
filename. 

UFD A User File Directory. A special type of file 

containing a list of filenames and the location of the 
corresponding files. A file v^ose name is on this list 
is said to be "in this directory". 

MFD The Master File Directory. A special UFD which 

contains the names of the UFDs on a particular disk. 
There is one MFD for each logical disk. 

sub-UFD A User File Directory in a UFD or other sub-UFD. 

Note 

File directories with names in the MFD are UFDs; 
all other file directories are sub-UFDs. 

logical disk A division of the conputer's disk memory. It may be 
all or part of a physical disk. The logical disk is 
labelled by an octal number called the logical disk 
number (obtainable from STATUS DISKS canmand) . 

volume name A literal name corresponding to a logical disk, e.g., 
logical disk 4 may have volume name DOCUMN. (Also 
obtainable from STATUS DISKS command). 
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treename 



An extended form of the filename vAiich completely 
describes the location of a file in the directory 
structure. Treenames may be one of the following: 



• filename 

• ufd-name [password] >...>sub-ufd-name [password] >filename 

• <volume-name> ufd-name [password] >...sub-ufd-name [password] >filename 

• <logical-disk>ufd-name [password] >.. .sub-ufd-name [password] >filename 
where: 

filename is the name of the file. 



ufd-name 
sub-ufd-name 



password 



volume-name 



is the name of the UFD or sub-UFD in which the 
file (or sub-UFD) to right of it on the line 
located. 



IS 



is the password of the UFD or sub-UFD, 
been protected with a password. 



if it has 



logical-disk 
source file 



is the literal name of the disk on vAiich the file 
is located; if volume-name is specified as <*>, 
this is the same as using the name of the disk the 
user is currently attached to. 

is the octal number of the logical disk. 



binary file 
object file 



runfile 



mode 



identity 



The program file created by the user consisting of 
text, program statonents, comments, etc. 

A translation of the source file generated by the COBOL 
compiler. Such files are in the format required as 
input to the linking loader or segmented loader. 

The loaded, executable version of a program consisting 
of the binary file, subroutines and library entries 
used by the program, COMMCSsl areas, initial settings, 
etc. Iliis file is created using LOAD and SEG. 

An addressing scheme. The mode used determines the 
construction of the computer instructions by the 
compiler. Ktodes available to the COBOL programmer are 
relative-addressed (RMCDE or 64R) and 
segmented-addressed (VMCOE or 64V) . (The number is the 
user memory size in K's of 16-bit words.) 

The addressing mode plus its associated repertoire of 
computer instructions. Programs conpiled in 64R mode 
execute in the R-identity; programs compiled in 64V 
mode execute in the V- identity. 
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byte 8 bits; 1 ASCII character. 

word 16 bits; 2 bytes; 2 ASCII characters. 

ACCESSING THE SYSTEM 

The most basic commands for an interactive session with ERIMOS are 
outlined below; a PRIMOS command summary follows. 

This is not intended as an exhaustive presentation. The reader should 
consult REFERENCE GUIDE, PRIMOS COMMANDS (PDR3108) for a complete 
discussion. 

Logging In 

•Logging In' identifies the user to the system and establishes initial 
contact; it provides access to a work area, files, and all the general 
resources of the canaputer. 

The format of the LOGIN command is: 

I/DGIN ufd-name [password] 

vAiere ufd-name is the name of a User File Directory in the system. 
PRIMOS will respond with the message: 

ufd-name (job or term#) LOGGED IN AT time date 

Example : 

LOGIN PENNY PROTECT 

PENNY (30) LOGGED IN AT 10 '33 012478 

The number in parenthesis is the PRIMOS-assigned job number. The LOGIN 
time (here 10 '33) is expressed in the 24-hour system. The date (here 
012478) is expressed as Month Day Year. 

Accessi ng Files 

Having logged in, the user now has a work space and direct access to a 
User File Directory. 

The LISTF Comma nd; The UFD contains the files to 'work on". To list 
these files, the LISTF command should be used. Its format is: 

LISTF 

For example, v*ien logged into a UFD named STAFF which contains the 
files FRANK, MARTHA, ALBERT, giving the LISTF canmand would have this 
effect: 
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LISTF 

UFD=STAFF 3 

FRANK MARTHA ALBERT 

OK, 

The number after the ufd-name identifies the logical device; the 
letter following the number will be either (for owner) or N (for 
non-owner) . See the PASSWD and PROTEC conmands for details. 

If there were no files in the STAFF UFD, a LISTF would have this 
result: 

OK, LISTF 

UFD=STAFF 3 

.NULL. 

OK, 

Logging into the system has the effect of 'attaching' the user to a 
UFD. At any time, the UFD to vAiich you are currently attached is known 
as the current UFD. 

The ATTACH Command : When access is required to files in other UFDs, 
the ATTACH ccanmand should be used: 

ATTACH ufd-name [password] 

At this point, the ufd-name specified in the ATTACH cOTimand becomes the 
current UFD. 

Spelling errors or other improper data cause the system to respond with 
one of the following messages: 

ufdname NOT FOUND 

or 
BAD PASSWORD 

or 

NO UFD ATTACHED 

In such instances, correct the ufd-name or password and reissue the 
ATTACH command. 
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Sub-UFDs 

A sub-UFD is a selection of files in a UFD which have been grouped 
together. This grouping has a name called sub-UFD-name. Once logged 
into a UFD, the ATTACH command can be used to access any sub-UFD within 
it. This sub-UFD would then be the current directory. At this 
juncture, giving a LISTF canmand provides a list of only those files 
within the current directory (sub-UFD) . 

The ATTACH Command ; When applied to a sub-UFD, the ATTACH canmand 
requires at least one additional parameter: 

ATTACH sub-UFD-name [password] [Idisk] [key] 

v*iere Idisk is logical disk number and is usually omitted for sub-UFDs. 
^s" J^<3isk is omitted, ke y is specified with a numeric positional 
character, i.e., 1/n. 1/n means, "skip over one numerical parameter 
and use v*at follows as the second parameter"; n is the value of key. 

For most applications, the COBOL programmer will set the value of key 
at 2. A complete list of key values and their meanings is provided in 
REFERENCE GUIDE, PRIMOS COMMANDS (PDR3108) . 

Example : 

OK, LISTF 

UFD=STAFF 3 

JAMES JOHNSTON JCNES 

OK, ATTACH JOHNSTON 1/2 
OK, 

The CREATE Command ; Sub-UFDs can be created within UFDs or sub-UFDs. 
A sub-UFD can contain files and sub-UFDs. 

The canmand to define and name a sub-UFD is the CREATE canmand. This 
command creates a sub-UFD in the current directory. 

The format of the CREATE canmand is: 

CREATE sub-ufd-name 

Two files or sub-UFDs with the same name are not permitted in the 
current UFD. Should this be attempted inadvertently, PRIMOS will 
respond with the message; ALREADY EXISTS. 
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Example : 

OK, ATTACH SALES 
OK, LISTF 

UFD=SALES 3 

.NULL. 

OK, CREATE EAST. COAST 
OK, CREATE WEST. COAST 
OK, CREATE EAST. COAST 
ALREADY EXISTS 
ER! LISTF 

UFD=SALES 3 

EAST. COAST WEST. COAST 

OK, 

Examining Files 

Contents of a file can be examined with the SLIST and SPOOL commands. 
The SLIST conmand displays a file on the terminal; the SPOOL command 
has a file printed out on the line printer. 

The SLIST Command ; The format of the SLIST ccsnmand is: 
SLIST treename 

This command causes the treename specified (in the current UFD or 
sub-UFD) to be displayed. 

The format of the SPOOL canmand is: 

SPOOL filename 

PRIMOS makes a copy of filename in the Spool Queue List for the line 
printer, and displays the message: 

TOUR SPOOL FILE IS PRTxxx (length) 

vdiere xxx is a 3-digit number wich identifies the file in the Spool 
Queue List. The reason there is a list, rather than just having each 
file spooled out as the request ccxnes, is that some requests are very 
long - hundreds of pages. PRIMOS spools out the shorter files as soon 
as possible, rather than make the user wait v^iile the long files are 
printed. The word (SHORT or LONG) v*iich follows the SPOOL message 
indicates the category to v*iich the file has been assigned. 
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It is possible to check the status of a SPOOL request by giving the 
conmand: 

SPOOL -LIST 

Example : 

OK, SPOOL POEM 

GO 

YOUR SPOOL FILE IS PRr013 (LONG) REV 14.00 

OK, SPOOL -LIST 
GO 

USER FILE DATE/TIME OPTS SIZE NAME FORM 



COSMO 


PRT005 


11/09 10:03 


S 


5 


RTN168 


WHITE 


MARTHA 


PRT007 


11/09 15:34 


S 


3 


RTN172 


WHITE 


HAMPSO 


PRT009 


11/11 10:25 


S 


6 


PAGTUR 




LAWLER 


PRT010 


11/11 10:26 


S 


9 


L AM9600 




RANDI 


PRT011 


11/11 10:26 


S 


1 


WKINFO 




MORRIS 


PRT012 


11/11 10:27 


S 


3 


lj:mp$sr 




ALICE 


PRT013 


11/11 10:28 


L 


17 


POEM 





To cancel a spool request, the command format is: 

SPOOL -CANCEL PRTxxx 

vAiere xxx is the number of your Spool File. 

For example: 

OK, SPOOL -CANCEL PRT013 

GO 

PRT013 CANCELLED. 

OK, 
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Notes 



1. If PRIMOG has already begun SPOOLing a file, it 
is not possible to cancel the SPOOL request. 
Instead, PRIMOS will display the message: 

CAN'T CANCEL REQUEST - FILE IS OPEN OR 
CURRENTLY PRINTING 

2. If the file has already been spooled, or the 
pm: number given is incorrect, the message will 
read: 

PRTxxx NOT IN QUEUE 

3. If the name of the file is specified instead of 
the PRT number, the message will read: 

BAD PRINT FILE NAME 

Renaming and Deleting Files and Empty Sub-UFDs 

The CNAME Command : Files and sub-UFDs can be renamed with the CNAME 
cOMiand. The format is: 

CNAME old-name new^name 
If new-name already exists, PRIMOS will display the message: 

ALREADY EXISTS 

An incorrect old-nane prompts the message: 

NOT FCUND 
ER! 

The DELETE Coimiand ; The DELETE command enables the deletion of files 
and empty sub-UFDs. Its format is: 



DELETE 



filename 
sub-UFd-name 



Sub-UFDs containing files cannot be deleted with this command. 
Instead, all files contained within the sub-UFD must first be DELETEd. 

PRIMOS warns the user if an attempt is made to DELETE sub-UFDs 
containing files; it displays the message: 

DIRECTORY NOT EMPTY 
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Closincf Files and Logging Out 

The CLOSE Command ; Files are automatically opened by PRIMOS when 
accessed by the user. Certain conditions, such as quitting out of 
EDITOR via the BREAK key or CQNTROL-P, will leave these files open. If 
an attempt is made to re-access them, PRIMOS will respond with the 
message: 

FILE IN USE 
The CUBE command must be given in such instances. Its format is: 



CLOSE 



filename 

ALL 

file-unit-number 



Once closed, the file is ready to be reacessed by the user. 

The CI/DSE conmand is discussed again in this section under Entry From 
Other Media . 

The LOGOUT Conmand ; When finished with a session at the terminal, give 
the LOGOUT command. Its format is: 

LOGOUT 

PRIMOS acknowledges the ccxnmand with the following message; 

UFD-name (user-#) LOGGED OUT AT (time) (date) 
TIME USED = terminal-time CPU-time I/O-time 

user-# is the same as the one assigned at LOGIN 

terminal- time is the amount of elasped clock time between 
logging in and 1 gging out (hours and minutes) . 

C PU- t ime refers to Central Processing Unit time consumed 
(minutes and seconds) . 

I/O-time is the amount of input/output processing time used 
(minutes and seconds) . 
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Sample PRIMPS Session 

LOGIN STAFF 

STAFF (15) LOGGED IN AT 10 '35 110579 
LISTF 

UFD=STAFF 3 

FRANK MARTHA ROSEJIARY 

OK, ATTACH SALES 
OK, LISTF 
UFD=SALES 3 
.NULL. 

OK, CREATE EAST. COAST 
OK, CREATE WEST. COAST 
OK, CREATE EAST. COAST 
ALREADY EXISTS. 
ERI LISTF 

UFD=SALES 3 

EAST. COAST WEST. COAST 

OK, ATTACH EAST. COAST 1/2 

OK, CREATE NORTH 

OK, CREATE SOUTH 

OK, CREATE CENTRAL 

OK, LISTF 

UFD=EAST. COAST 3 

NORTH SOUTH CENTRAL 

OK, ATTACH NORTH 1/2 

OK, CREATE MAIN 

OK, CREATE BRANCHl 

OK, CREATE BRANCH3 

OK, DELETE BRANCH3 

OK, CREATE BRUNCH2 

OK, CNAME BRUNCH2 BRANCH2 

OK, ATTACH SALES 

OK, ATTACH EAST. COAST 1/2 

OK, ATTACH NORTH 1/2 

OK, LISTF 

UFD=NORTH 3 

MAIN BRANCHl BRANCH2 

OK, LOGOUT 
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STAFF (15) LOGGED OUT AT 11 '28 110579 
TIME USED=0'12 0'06 0'032 
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PRIMC^ CCMIAND SUMMARY 



An alphabetic list of PRIMOS ccanmands of special interest to the COBOL 
programmer follows (acceptable abbreviations are underlined) : 



11 
ASSIGN 

ATTACH 

AVAIL 

BINARY 

CLOSE 

CMPF 

CMPRES 

CNAME 

COBOL 

TOMINPUT 

COMOU TPUT 

CPMPC 

CREATE 

CREATK 

CRMPC 

CRSER 

CSUBS 

CX 

DATE 

DELETE 

DELSEG 

ED 

EDB 

EXI>AND 

FAP 

FPL 

FILMEM 
FILVER 

FUTIL 

INPUT 

KBUILD 

KIDDEL 

LABEL 

LISTF 

LISTING 

LOAD 

LOGIN 

lOGOUT 

MAGNET 

MAGRST 

MAGSAV 



Command line ccanment designator 

Obtains exclusive control of a peripheral device 

Attaches to UFD or sub-UFD 

Gives records available on specified disk 

Opens a file for writing on PRIMOS unit 3 (Obs.) 

Closes files 

Canpares ASCII files 

Compresses ASCII file 

Changes a filename 

Invokes COBOL compiler 

Switches conmand stream fron terminal file and 

vice- versa 

Switches terminal output to file and vice-versa 

Punch cards on parallel interface card punch 

Creates a sub-UFD in the current UFD 

Defines MIDAS template file. 

Reads cards from the parallel interface card reader 

Reads cards from the serial interface card reader 

Interfaces COBOL with DBMS (data base managenent 

system) 

Invokes the sequential phantom job execution utility 

Prints system time and date at terminal 

Deletes a filename from the UFD 

Deassigns segments assigned by SEG. 

Invokes Prime's text editor 

Invokes the binary editor (for library building) 

Expands a file previously compressed with CMPRES 

Updates and maintains FORMS directory. 

Converts data descriptors for FORMS into format usable 

by routine program. 

Fills the user memory space with zeros 

Compares two binary files for equivalence and prints 

differences 

Invokes Prime's file manipulation utility 

Opens file for reading on PRIMC© unit 1 

Builds MIDAS data file. 

Deletes MIDAS file. 

Creates an ANSI COBOL level-1 volume label on a 

magnetic tape. 

Prints list of entries in current UFD 

Open a file for writing on PRIMOS unit 2 

Invokes the Linking Load (R-identity) 

Logs the user into the system 

Logs the user off the system 

Invokes the magtape/disk transfer/translation utility 

Transfers files from 9-track tape to disk 

Transfer files from disk to 9-track tape 
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MDL Punches paper tape of specified locations of meinory in 

self-loading format 
MESSAGE Transmits message from user terminal to system console 
MRGF Merges ASCII files. 
OPEN Opens a file by name on a specified PRIMOS unit for 

specified operations 
PASSWD Sets passwords for current UPD 

PHANTOM Spawns a user to execute the specified command file 
PM Prints program start and end addresses, register 

contents 
PRERR Prints error message in ERRVEC 
PRMPC Prints on parallel interface driven line printer 
PROTEC Sets owner/non-owner rights for files and sub-UFDs 
PRSER Print on serial interface driven line printer 
PSD Invokes the Prime Symbolic Debug utility 
PTCPY Duplicates and verifies paper tapes 
REMAKE Maintains MIDAS file. 
REPAIR Rebuilds damaged MIDAS file. 

RESTORE Restores a file from disk to user's memory space 
RESUME Restores a file to user's memory and begins execution 
RUNOFF Invokes Prime's text output formatter 
SAV E Writes memory into a disk runfile with the address 

values and register settings 
SEG Invokes the segmented-address (V-identity) utility 
SIZE Gives size of file 

SLIST Prints contents of file to user's teminal 
SORT Sorts an ASCII file 
SPOO L Spools output files to line printer 
START Sets registers and keys and begins program execution 
STA TU S Prints status of specified system parameters 
TA Attaches to UFD with treename specified as in FUTIL 

TAP Invokes octal mode debugging routine 
TERM SetsA'isplays terminal kill and erase characters, set 

duplex 
TIME Prints connect time, compute time, and disk I/O time at 

terminal 
UNASSIGN Relinquishes control of a peripheral device 
UPCASE Reformats files by changing lower-case letters to 

upper-case 
US E RS Prints number of users currently logged in 
VPSD Invokes Debugging utility for V-identity 
VPSD16 Used when the program is so large that it overlays 

VPSD. 



For a complete treatment of all 
PRIMOS CCMMAISIDS, PDR3108. 



commands, see the REFERENCE GUIDE, 
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CREATING AND ENTERING SOURCE PROGRAMS 

Entry F rom Other Media 

Source programs existing on punched cards, magnetic tape, or punched 
paper tape can easily be read onto disk files using PRIMOS-level 
utilities. In addition, the punched card and magnetic tape transfer 
utilities will translate from BCD or EBCDIC representation into ASCII 
representation, saving considerable time and effort. 

Subroutines and other installation-dependent operations may be altered 
to conform to PRIMOS using the Editor (described later in this 
section) . 

The general order of operations for input from a peripheral device is: 

1. Obtain exclusive use of the device (Assigning at PRIMOS 
level) . 

2. Transfer programs with appropriate utility. 

3. Release device to other users (Unassigning at PRIMOS level) . 

Assigning A Device ; Assigning a device gives the user exclusive 
control over that peripheral device. The PRIMOS-level ASSIGN command 
is given at the terminal: 

ASSIGN device [-WAIT] 

vdiere device is a mnemonic for the appropriate peripheral: 

CARDR Serial Card Reader 

CRn Parallel Card Reader n (0-3) 

MSn Magnetic Tape Unit n (0-7) 

FPR Paper Tape Reader 

and -WAIT is an optional parameter. If included, it queues the ASSIGN 
command if the device is already in use. The assignment request 
remains in the queue until the device becanes available or the user 
types the CONTROL-P or BREAK key at the terminal; both occurrences 
return the user to PRIMOS. If the requested device is not available 
and the -WAIT parameter has not been included, the error message: 

DEVICE IN USE 

will be printed at the terminal. 

After all I/O operations are completed, exclusive use if relinquished 
by the conmand: 

UNASSIGN device 
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^sre device is the same mnemonic used in the ASSIGN command. 

Readin g Punc hed C ards; Assign use of the parallel interface card 
reader with the ASSIQJ command: 

AS CRi3 -WAIT 

To read cards from the card reader, load the card deck into the device 
and enter the conmand: 

CRMPC treename 

vdiere treen am e is the name of the file into which the card images are 
to be loaded. 

Source deck header control cards are set up as follows: 

Source deck Columns 1 and 2 of 
representation deck header car d 

BCD $6 

EBCDIC $9 

ASCII no header card 

Reading continues until a card with $E in columns 1 and 2 is 
encountered (end of deck) . Control returns to PRIMOS and the file is 
closed. If the cards are exhausted (or the reader is halted by the 
user), control returns to PRIMOS but the file is not closed. 

If more cards are to be read into the file at this point, the reader 
should be reloaded. Reading is resumed by the START command given at 
the terminal: START. 

The format of the conmand to close the file is: 

filename 

ALL 



CLOSE 



To close all files and units, the CLOSE command should be given in the 
form: 

CLOSE ALL 

Example of a card reading session: 

OK, AS CR0 -WAIT 

OK, CR SER ql d-program-1 

OK, UN CR0 

OK, 
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If a serial interface card reader is used, the process is similar with 
slightly different reader commands. CAEDR may be abbreviated to CAR. 

OK, AS CARDR -WAIT 

OK, CRSER old-program-2 

OK, UN CAR 

OK, 

Reading Magnetic Tape /T he MACaJET Utility: Assign use of the magnetic 
tape drive by: 

AS MTx -WAIT 

where x is the tape drive unit number: 0,1... 7. 

Mount the tape on the selected drive unit and read the tape with 
PRIMOS' MAC3SIET utility: 

OK, MAGNET 
GO 

MAOQET 14.0 19-MAY-77 

OPTION: READ 

MTU# = unit number [/tracks] 

yuere: 



unit-number 



tracks 



is the number of the magnetic tape drive unit which 
was previously assigned and 

is either 7 or 9; if this parameter is omitted, 
9-track tape is assumed. 



MAGNET than asks a series of questions about the tape format (user 
responses are underlined) : 



Prompt 
MTFILE# 



LOGICAL RECORD SIZE = 



Res ponse 
tape-file-number 



number 



Remarks 

This is the number on the 
tape. A positive integer 
causes the tape to be re- 
wound and then positioned 
t'^ the file number; a 
causes no repositioning 
of the tape. 

This is the number of 
bytes/line image; normally 
this is 80 for COBOL 
source program 
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BLOCKING FACTOR = 



blockin g factor 



.ASCII 



Blocking-factor is the 
number of logical records 
per record. 

indicates that no transla- 
tion is to occur between 
tape and disk. The data 
is written to the disk 
file in ASCII format. 



EBCDIC 



indicates that the data on 
the tape is to be transla- 
ted from EBCDIC to ASCII 
before written to 
the disk file. 



ASCII, BCD, BINARY, OR^BCD 
EBCDIC? 



BINARY 



FULL OR PARTIAL RECORD 
TRANSLATION? 



FULL 
PARTIAL 



OUTPUT FILENAME: 



filename 



specifies that the data is 
to be translated from BCD 
(6-bit) to ASCII before 
being written to the disk 
file. This option 
is only meaningful 
when used with a 7-track 
tape. Note that no 6-6-5 
unpacking is done by Mag- 
net vAxen this option is 
specified 

Indicates that the data is 
to be written verbatim to 
a binary disk file. 
The record size is 
the specified logical 
record size. No transla- 
tion occurs. 

The question is asked 
only for BCD or EBCDIC 
representations. PZU^TIAL 
allows specified bytes in 
the record to he transfer- 
red to disk without trans- 
lation to ASCII. This is 
useful when transferring 
data files. Most source 
programs will be transfer- 
red with the FULL option. 

This is the name of the 
file in the UFD into which 
the magnetic tape is read. 
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OK TO DELETE OLD I Y^ I This question will be 

filename? I NO j asked only if the filename 

^ ' specified already exists 

in a UFD. A YES will 
cause the transfer to 
being 

Upon completion of the dialogue, the following message will be printed: 

TONE, tape-records RECORDS READ, disk-records DISK RECORDS OUTPUT 
OK, 

Use of the tape drive unit should then be relinquished by the command: 
UN MTx. 

Reading Punched Paper Ta pe; Source programs punched on paper tape in 
ASCII representation can be read onto a disk file with the Editor 
utility. 

OK, AS PTR -WAIT assign tape reder 
OK, ro invoke Editor 

GO 

INPUT 

(CR) switch to EDIT mode 

EDIT 

INPUT (PTR) input from tape reader 

tape is being read 
EDIT 

FILE filename file input under filename 
OK, UN PTR 

The EDIT OR/Entering and Modifying Programs 

Programs are normally entered into the computer using Prime's Text 
Editor (ED) . This editor is a line-oriented text processor v^^ose line 
pointer is always located at the last line processed (v^ether the 
processing is printing, locating, moving pointer, etc). The Editor 
operates in two modes, INPUT and EDIT. 

Using the Editor ; When creating a new file, the Editor is invoked by 
the command: 

ED 

which places the Editor in the INPUT mode. To modify an existing file, 
use the expanded command format: 

ED filename 

This places the Editor in the EDIT mode. 

A CARRIAGE RETURN with no preceding characters on that line switches 
the Editor from one mode to another. 
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Input Mode ; The INPUT mode is used when entering text information into 
a file (e.g., creating a program). The word INPUT is displayed at the 
user's terminal to indicate the Editor has entered that mode. The 
RETURN key terminates the current line and prepares the Editor to 
receive a new line. Tabulation is performed with the backslash (\) 
character. Each backslash represents the first, second, etc. tab 
setting; the default tabs are at positions 6, 15, and 30. These 
setting may be overridden, and up to 8 tab settings may be specified by 
the user with the TABSET command (described later) . A RETURN with no 
text preceding it puts the Editor into EDIT mode. 

Edit Mode : The EDIT mode is used vAien the contents of the file are to 

be modified. More than fifty commands are available, however, a small 

subset of these will suffice for most purposes. Commands are listed 
and described later in this section. 

In EDIT mode, the Editor maintains an internal line pointer at the 
current line (the last line processed) . Commands such as TOP, BOTTOM, 
FIND, and LOCATE, move this pointer. WHERE prints out the current line 
number; POINT moves the pointer to a specified line number. The MODE 
NUMBER command causes the line number to be printed out vAienever a line 
of text is printed. All commands for location and modification begin 
processing with the current line. 

A CARRIAGE RETURN without any preceding characters on that line puts 
the Editor into INPUT mode. 

Sfjecial _ Characters; Unless modified at the user's installation, the 
Editor's erase and kill symbols are those of PRIMOS. The Editor's 
default erase character is the double-quote (") , and the default kill 
character is the question-mark (?) . For each " typed, a character is 
erased (from right to left) . The entire current line may be deleted by 
typing the kill character. A line followed by a ? is null, and a 
REITJRN at that point will switch the EDITOR into the other mode. 

The semicolon character (;) is interpreted as a carriage return by the 
Editor in INPUT mode. While this places restrictions on entering 
semicolons as part of a file, it does provide a 'brief format for 
inputting multiple short entries or blank lines. 



Example ; 



INPUT 

*;* TEST-FILE;* 



will become; 



* 

* TEST-FILE 
* 



A more detailed discussion of special characters and how to manipulate 
them is provided in the New User's Guide to EDITOR and RUNOFF, FDR3104. 
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Saving Files ; Orderly termination of an Editor session is done from 
EDIT mode. The command: 

FILE filename 

writes the current version of the edited file to the disk under the 
name filename. The specified file will be created if it did not 
previously exist, or overwritten if did exist. If an existing file is 
being modified, the conmand should be given as: 

FILE 

This writes the new version to the disk under the old filename. After 
execution of the filing canmand, control is returned to PRIMOS. 

Useful Techniques : The following are highlights of some Prime Editor 
techniques which will be of particular interest to the COBOL user: 

• ^'ab Settings: When entering source code, much time can be saved 
using the TABSET command. In INPUT mode, each backslash character 
(\) is interpreted as one tab setting; the "default values are 
positions 6, 15, and 30. Tabs may be set to vAiatever values each 
programmer finds useful. 

• C olimin D is play : Entering source code and other data is also 
facilitated by the Editor's column display feature. A banner of 
column numbers can be displayed across the top of the terminal 
£;creen providing alignment guides. The command MODE COLUMN, given 
in Edit mode, causes the column header display to be printed each 
time Input mode is entered during an Editor session. 

• Moving Lines of Code: Several Editor ccsnmands enable the transfer 
of coded lines to and from Editor work files. 

The LOAD ccsttmand inserts (load) a copy of filenam e into the Editor's 
work file below the current line, repositioning the pointer just 
below the end of the LOADed text. 

llie UNLOAD command copies (unloads) the specified number of lines in 
the Editor work file into filename 

Uhe DUNLQAD command copies (unloads) the specified lines the work 
file into filename , and then deletes those lines from the work file. 

• Finding A Line By State ment L ab el : The FIND command may be used to 
locate a statement label in a COBOL program. 

• Modifying A Line Without Changing Character Positions ; The MODIFY 
corariand is used when a line must be modified but the absolute column 
alignment must remain the same. 
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Sanple Editin g Session 1 

See the list following these examples for an explanation of the ccramands. 

OK, HD 
GO 

INPUT 

I RETURN ~1 
EDIT 

CMODE COLUMN 



I RETURN 1 

INPUT 

1 2 3 4 5 6 7 
1234567890123456789012345678901234567890123456789012345678901234567890123456789 

IDENTIFICATION DIVISION. 

PROGE^AM-ID. TEST2. Source coding is keyed in, 

INSTALLATION. PRIME. aligned by column. 



\ 



\ 



The first tab default is 
position 6. A space after the 
backslash character positions 
the asterisk in the continua- 
tion column 7. 



PROCEDURE DIVISION. 



OPEN-FILES. 

OPEN INPUT INPUT-FILE. 



t RETURN ~1 

EDIT 
P20 



IDENTIFICATION DIVISION. 
PROGRAM-ID. TEST2. 
INSTALLATION. PRIME. 



PROCEDURE DIVISION. 



OPEN-FILES. 

OPEN INPUT INPUT-FILE. 



The PRINT command in EDIT 
mode displays entered source 
statements. 
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i return"! 

INPUT 

12 3 4 5 6 7 
1234567890123456789012345678901234567890123456789012345678901234567890123456789 
DONE. 

CLOSE INPUT-FILE. 
STOP RUN. 

Each time INPUT is invoked, 
there is an automatic column 
number display. This 
convention may be used at 
terminal scrolling (when the 
column display scrolls or roll 
off the screen) . 

r return") 

EDIT 

FILE TEST2 The FILE command writes the 

contents of the edited file to 
the filename specified (in 
this case, TEST2) . The FILE 
command also causes a return 
from the Editor to PRIMOS. 

OK, 
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Sample E diting Session 2 



OK, ED 








GO 








INPUT 








i BETURN 1 








EDIT 








TABSET 8 17 






Set tabs 


1 RETURN 1 




INPUT 








* 






Begin entering data 


* THIS IS A RECORD 


STREAM 


FOR 




*\A COBOL PROGRAM 






Use backslash character for 


*\\USING FORMS 






tabulation 



RECORD STREAM 
*VlACRO D EFF"INITIONS 
FI\DEF\FIEtg 
V\DEF\VALLIDATE 



Erase errors 



\END\STREAM 



« RETURN I 

EDIT 
T 



Semicolons enable multiple 
entries with a single line 



Position pointer at beginning 
of file. 



FIND FI 



FI DEF 
MODIFY/FI/F 


F 


DEF 


FIND V 




V 

C/LL/L 


DEF. 


V 


DEF 


T 
P30 





PIEID 
FIELD 

VALLIDATE 
VALIDATE 



.NULL. 

* THIS IS A RECORD STREAM FOR 

* A COBOL PROGRAM 

* USING FORMS 
* 



Locate statement to be modified. 



Modification complete; 
Absolute alignment remains 
intact 



Change is complete; relative 
alignment remains intact. 

Print corrected file (30 
lines) . 



RECORD STREAM 

MACRO DEFINITIONS 
F DEF FIELD 
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DEF VALIDATE 



END STREAM 



* 
* 
* 
* 

FILE FORMSTREAM 
OK, 
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Editor C omman d Summary 

The following is an alphabetic list of each Editor command and its 
function. Acceptable command abbreviations are underlined. Especially 
useful ccsnmands are indicated with a bullet (•) . For a detailed 
description of all cotrmands, see the Editor Reference Section of THE 
NEW USER'S GUIDE TO EDITOR AND RUNOFF, FDR3104. 

Note 

The string parameter in a conmand is any series of 
ASCII characters including leading, trailing, or 
embedded blanks. 



Command 



Function 



• APPEND string 

• BOTTOM 



Appends string to the end the 
current line. 



Moves the pointer beyond 
last line of the file. 



the 



BRIEF 



• CHANGE/string-l/string-2/[G] [n] 



• DELETE [n] 



DELETE TO string 



• DUNLOAD filename [n] 



DUNLOAD filename TO string 



ERASE 



Speeds editing by suppressing 
the (default) verification 
responses to certain Editor 
commands . 

Replaces string-1 with strinq-2 
for n lines. If G is omitted, 
only the first occurrence of 
string-1 on each line is 
changed; if G is present, all 
occurrences on n lines are 
changed. 

Delete n lines, including the 
current line (default n=l) . 

Deletes all lines up to but not 
including line containing 
string. 

Deletes n lines and writes them 
into filename. (default n=l.) 

Same as DELETE... TO, but writes 
deleted lines into filename. 

Resets current erase character 
to character. 
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• FILE filename 

• FIND string 
£IND(n) string 

GMODIFY 



INPUT 



(ASR) 
( PTR ) 
(TTY) 



• INSERT string 
KILL character 

LINESZ n 

• LOAD filename 

• ipCATE string 

• MODE COLUMN 

MODE COUNT start increment width 



MODE NCOLUMN 



Writes the contents of the 
current file into filename and 
exits to ERIMOS. 

Moves the pointer down to next 
line beginning with string . 

Moves the pointer down to next 
line with string beginning in 
column n. 

Allows the user to enter a 
string of subcommands which 
modify characters within a line. 



Reads text from the specified 
input device: ASR (Teletype 
paper tape reader) , PTR 
high-speed paper tape reader) 
or TTY (terminal) . Default 
is TTY. 



Inserts str ing 
line. 

Sets kill 
character. 



after current 



character 



to 



Changes maximum line length. 

Loads filename into text 
following the current line. 

Moves pointer forward to the 
next line containing string, 
which may contain leading and 
trailing blanks. 

Displays column numbers whenever 
INPUT mode is entered. (The 
cOTimand is given in EDIT mode.) 



PRINT 
BLANK 
SUPPRESS 



Turns on the automatic 
incremented counter. 

Turns off the column display 
(default) . (The command is 
given in EDIT mode.) 
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MODE NCOUNT 



Disables 
function. 



the 



MODE 



COUNT 



MODE NUMBER 



MODE NNUMBER 



(Case Modes) 



MODE PRALL 



PRUPPER 



MODE 



PRLOWER 



Displays line numbers in front 
of printed line. 

Turns off the line number 
display (default) . 

Case-flagging is done by 
preceding each new case with 
either "U (for Upper-Case) or "L 
(for Lower-Case) . PRUPPER and 
PRLOWER are intended for use on 
Upper-Case-only Terminals. 

Prints letters without case 
flagging (default) . 

Accepts/prints case-flagged 
Upper-Case letters. Each 
line of input/output begins 
implicitly flagged as Upper- 
Case. 

Accept s/pr int s case- f 1 agged 
Upper-Case Letters. Each 
line of input/output begins 
implicitly flagged as Lower- 
Case. 



MODE PROMPT 



Prints prompt characters for 
INPUT and EDIT modes. 



MODE NPROMPT 



• MODIFY/string-l/string-2/ [n] [G] 



MOVE buffer-1 



• NEXT [n] 



buffer-2 
str ing 



Inhibits printing of 
EDIT prompt 
(default) . 



INPUT and 
characters 



Superimposes string-2 onto 
string-1 for n lines. If G is 
omitted, only the first 
occurrence of string-1 on each 
line is modified, otherwise all 
occurrences of string-1 are 
modified. 



are 



^ov^ string or contents of 
buffer-2 into buffer-1 . 

Moves the pointer ri lines 
forward or backward (default 
n=l). 
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• NFIND string 
NFIND(n) string 

OVERLAY string 



mJSE 

POINT line-number 

• PRINT n 

KYMBOL 

PTABSET tab-l...tab-8 

/ (^SR) \ n 
PUNCH I (PTP) I 

• gJIT 

MITYPE string 

SYMBOL name character 



Moves the pointer down to next 
line NOl' beginning with string. 



Moves pointer to next line in 
which string does not start in 
column n. 

Superimposes string on current 
line. Use tabs to start in 
middle of line. An ! forces a 
space in its corresponding 
column. 

Returns to operating system 
without changing the Editor 
state. Type START to continue. 



Relocates the 
line-number. 



pointer to 



Prints the current line or n 
lines beginning with the current 
line. 

Prints a list of current symbol 
characters and their function. 

Provides for a setup of tabs on 
devices that have physical tab 
stops . 

Punches n lines on high- or low- 
speed paper- tape punch. 

Returns control to PRIMOS. 

Replace current line by string. 



Changes 


a 


symbol name to 


character. 


Current default 


values are: 




Name 


Default Characters 


KITT, 




? 


ERASE 




II 


WILD 




• 


BLANK 




# 


TAB 




\ 


ESCAPE 




" 


SEMICO 




• 


CPROMPT 




$ 


DPROMPT 




& 
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• TABSET tab-l...tab-8 

• tJSILOAD filename n 
IJSIIXDAD filename TO string 

• VERIFY 

• MJERE 

XEQ buffer 



Sets up to eight logical 
tabstops to be invoked by the 
tab symbol. 

Moves the pointer one line 
before the first line of text. 

Copies n lines into f ilenane . 

Unload lines from current file 
into filename until str ing is 
found. 

Displays each line after 
completion of certain commands, 
(default.) 

Prints the current line number. 

Executes the contents of buf fer 
as a command line. See MOVE. 



Listing Programs 



Repeat symbol. Causes preceding 
command to be repeated n, times 
as in: 

F /;D;*10 

which deletes the next ten lines 
beginning with /. If n is 
omitted, the command repeats 
until the bottom of file is 
reached. 



Techniques for listing files are also discussed earlier in this section 
under Examining F ile;s . 

Terminal Listing; Programs may be listed at the terminal by the PRIMOS 
command : 

SLIST treename 

^Q^^ treenane is the name of the file to be listed. Upon completion 
of the listing, control is returned to PRIMOS. 

L in e Pr inter Li s ti ng ; To obtain a copy of a source file on the system 
line printer, enter the command: 

SPOOL filename [-option-1. . .-option-n] 
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which creates a copy of the user's file filename in the line printer 
spool queue. The options are mnemonics specifying printer options. 
The most useful options for COBOL programmers are: 

-LNUM Prefixes a line number to the left of the file 
contents; these numbers are enclosed in 
parentheses. 

-DEFER 'time' Defers printing of the file until the specified 
t ime . The time may be entered in 24-hour format 
(13:05) or 12-hour format (9:25 PM) . 

After a file has been spooled; the system returns the message: 

YOUR SPOOL FILE IS PRTxxx 

vdiere xxx is a 3-digit number identifying the file on the spool queue. 
If a file has been spooled in error, it may be removed from the spool 
queue by the cotimand: 

SPOOL -CANCEL PRTxxx 
v^ere xxx is the identifying number of the spooled file. 
The contents of the spool queue may be examined by the command: 

SPOOL -LIST 

A complete description of the SPOOL COMMAND with all its options will 
be found in the documentation on the PRIMOS system. 

Renaming and Deleting P rogram Files 

Re naming Program _ Files: Program files can be renamed or deleted in the 
manner of other files. Use the PRIMOS-level cotimand, CNAME: 

CNAME oldname newname 

v^ere oldnane is the current name of the file and newname is the new 
name of the file. The user must have owner status in the UFD in order 
to use this command. 

Deleting : Program files can be deleted with the PRIMOS-level command: 

DELETE filename 

v^ere filename is the name of the file to be deleted; the user must 
have owner status in order to use this command. 

Note 

You cannot use the DELETE command to delete a UFD, 
sub-UFD, or segmented runfile (see Section 7). 
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SECTION 5 
CCM'ILING A SOURCE PROGRAM 

INTRODUCTION 

There is one COBOL compiler for all Prime computers and PRIIVDS levels. 

Source programs must meet the requirements o£ Prime's COBOL as specified 
in this manual. 

Object code generated by the compiler in 64R mode is in a format suitable 
for loading by Prime's Linking Loader (LOAD) (see Section 6). The COBOL 
compiler can also generate object code in the segmented-addressing (64V) 
mode suitable for processing by Prime's segmented-addressing loader (SEG) 
utility on Prime 400 (or higher) computers. 

USING THE COMPILER 

The COBOL compiler is invoked by the COBOL command to PRIMOS: 

COBOL Treename [-parameter-1 -parameter-Z ... -parameter-n] 

or 
COBOL [ -parameter- 1 ,.,] -I treename [... -parameter-n] 

where treename is the treename of the COBOL source program file 

Parameter- 1 J etc. are the mnemonics for the options controlling 

compiler functions such as I/O device specifi- 
cation, listings, and others. 

EXAMPLE: 

COBOL MYPROG -64V -L PRGLST 

or its equivalent 

COBOL -64V -I MYPROG -L PRGLST 

The mnemonics, e.g., -64V, are explained in COMPILER FUNCTIONS in this 
section. 

All mnemonic parameters must be preceded by a hyphen (-). The name of 
the source program file must be specified either as the first expression 
following the command COBOL, or as -I treename, but not both. 
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End of Compilation Message 

After the compiler has done a pass at the specified input file, and gen- 
erated code and listing output to the devices specified by the mnemonic 
parameters, it prints a message at the user's terminal. The message for- 
mats are: 

64R mode 

xxxx ERRORS yyyy WARNINGS (TER 04) 

64V mode 

xxxx ERRORS yyyy WARNINGS P400/500, COBOL VER 14.0 < PROGRAM > 

where xxxx is the number of errors encountered 

during compilation 

yyyy is the number of warnings 

PROGRAM is the name of the program (ID) 
compiled. 

An error is a mistake in syntax, an omission or the like which makes exe- 
cution of the program impossible, 

A warning occurs when a statement is encountered which, although legal, 
may cause unexpected and/or undesirable results. 

After compilation, control returns to PRDOS. 

Compiler Error Messages 

The general format of the error message is: 

n: message I 3 

where n is the line reference number 

message is the standard COBOL conpiler error 
message, A complete list is given in 
the Error Reference Section, Appendix 
G. 

[ ] when stated, this is a variable describ- 
ing the problem, 

mmPLB: 

112: UNRESOLVED PROCEDURE NAME; STATEMENT DELETED, [READ-PAYROLL] 
An in-line error message takes the format: 

** SYNTAX ERROR ** variable - in-line-message 
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Compiler Warning Messages 
The general format o£ the message is: 
line#/W/message 

where line# is the line reference number 
/W/ indicates WARNING 
message is the standard COBOL compiler warning message. 

A complete list is given in the Error Reference 

Section, Appendix G. 

EXAMPLE: 

150/W/MO\^E ID DONE WITHOUT CONVERSION. 

Program Statistics (64V Mode Only) 

When programs are compiled in 64V mode, program statistics are appended 
to the listing. These statistics relate to storage allocations. They 
take the form: 

EXECUTABLE CODE SIZE: (in words) 

CONSTANT POOL SIZE: (in words) 

TOTAL PURE PROCEDURE SIZE: (in words) 

WORKING- STORAGE SIZE: (in bytes) 

TOTAL LINKFRAME SIZE: (in words) 

STACK SIZE: (in words) 

The trace mode status is given by (on or off) . 

TRACE MODE: 

The number of arguments ex|)ected is given by: 

XXX ARGUMENFS EXPECTED. 

where xxx is the number of arguments expected. 
If xxx=0, then the message is: 

NO ARGUMENTS EXPECTED. 

The source program length is given by; 

yyy SOURCE LINES 

where yyyy is the number of lines in the source 
program. 
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COMPILER FUNCTIONS 

The compiler functions enabled by the mnemonic parameters fall into three 
groups : 

• Specify Input/Output Devices 

BINARY 

INPUT 

LISTING 



• Addressing Mode 

64R 
64V 

• Enable Expanded Listings (6W mode only) 

EXPLIST 

NOEXPLIST 

The defaults listed in this sections are those supplied by PRIME. The 
system manager may change these at any particular installation. The pro- 
grajmmer should check with the system manager at this installation to de- 
termine if defaults have been changed and, if so, which parameters are 
the new defaults. 

Specify Input/Output Devices 

The parameters below allow the user to inform the compiler of the input 
source filename and to specify the listing and binary object files. 



-INPUT 

-I treename 

-BINARY 

-B treename 



-B NO 



-B YES 



Define input file/device (example -I TEST) , 

The source program file is treename. 

To override default, define binary (object 
file device. 

The binary file will be created with the 
treename specified (example: -B OUTPUT>TEST, 
vdiere the binary file is created on the UFD 
OUTPUT mder the filename TEST) . 

No binary file will be created; only a syn- 
tax check will occur. 

The binary file is created with the default 
name B^filename, where filename is the name 
of the source program file in the UFD in 
which the source program file resides. The 
binary file, however, is created in the UFD 
to which the user is attached when invoking 
the compiler. 
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NOTE: I£ the BINARY parameter is not included in the command line, it 
IS equivalent to -B YES. 



-LISTING 
-L treename 

-L NO 



'L YES 



- L TTY 
-L SPOOL 



To override default, define listing file. 

The listing file will be created with the 
treename specified (example: -L ELM>LTEST). 

No listing file will be created, At later 
stages in program development or wJien minor 
modifications are made to programs, it may 
not be considered necessary to get a source 
program listing, 

The listing file is created with the default 
name L<-fllename, where filename is the name 
of the source program file in the UFD in which 
the source program file resides. The listing 
file, however, is created in the UFD to which 
the user is attached when invoking the compiler. 

The listing is printed at the user's terminal. 

The listing file is spooled directly to the 
line printer. 



NOTE ; If the LISTING parameter is not included in the command line, it is 
equivalent to -L YES. 



Addressing Mode 
-64R 

-64V 



Generates relative-addressed code suitable 
for loading with Prime's Linking Loader for 
the Prime 300 or higher. 

Generates segmented-addressed code suitable 
for loading with SEG^s loader. This mode 
must be used for programs exceeding 64K 
words, and/or for programs intended to be 
loaded as shared procedure. Code is suitable 
for execution on a Prime 350 or higher. 



Listings 



There are two forms of listing; regular and expanded. 

The regular listing consists of source code with line numbers appended for 
reference purposes. This may be obtained in both 64R and 64V mode by the 
mnemonic parameter -NOEXPLIST, 
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- NOEXPLIST Suppress generation of the expanded listing. 

This is the normal default. 

The expanded listing is a combination of a regular listing and machine- 
generated code. The expanded listing is only valid for compilation in 
64V mode; it may be obtained by the mnemonic parameter -EXPLIST. 

-EXPLIST Generates an expanded listing at the end of 

the listing file. User defined names are 
NOT used, machine -generated labels are placed 
in the listing. The label format is: 

<TYPE>$HHHH[+N Character Offset] 

HHHH = is the HEXADECIMAL IDENTIFIER 

TYPE: 

Label types fall into the following category: 

A = Paragraph or section 

B = Alter or perform indirect word 

C = Perform count variable 

D => Decimal constant 

E - Picture string (const) 

F = Character string (const) 

G = Generate label for branch instruction 

H = Passed parameter 

S « Generate label - any usage allowed 

Y = File control block 

Z = File buffer 

Other labels used: 

SB% == Stack base relative ' used for 

temporary storage 
XB% = Temporary base relative - used 

linkage section address 
WRKST$ - Working storage 
WSEXT$ - Working storage extension, etc, 

under indexes, tallying and work 

area as needed by the compiler, 

FOR EXAMPLE; 

003233: 001310 EAFA 1,Z$0027+72C 
003234 ; OOIOOQ , 000725L 

Says, at relative location ^3233 in the proce- 
dure area, EAFA 1, file buffer (ID'$0027 with 
a +72 character offset- Note that the word 
offset is '725 in the link frame. 
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In order to utilize this expanded listing, a knowledge of PMA is 
necessary (see: PDR3059, PMA User Guide). 

A complete list o£ all the con^iler mnemonic parameters with more 
detailed comments on the consequences o£ their usage will be found 
in Section 21. 
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SECTION 6 
LOADING AND LINKING 



INTRODUCTION 

The Prime Linking Loader utility (LOAD) operates on code produced by the 
COBOL compiler in the 64R mode; code produced in the 64V (segmented 
addressing) mode must be processed by the SEG utility (Section 7) . 

The Linking Loader combines into an executable program a number of program 
units or subroutines which have been independently ccmpiled. Some of the 
subroutines may reside in a library; the Linking Loader provides the 
facility for incorporation of any library subroutines which have been 
referenced in the main program, as well as resolving the addresses between 
them. 

Prime's Linking Loader offers the following features: 

• The loader is capable of loading code anywhere within the 64K in 
which it resides, except on top of itself or in its symbol table. 



• 



The location of COMNDN is moveable by a keyboard command. 
(CCMDN) 



• Partial or full load maps can be displayed on the user terminal 
or written to a disk file. (MAP) 

• An indefinite number of base areas can be specified; the loader 
automatically uses the first available area which can be reached, 
in preference to the sector linkage area. (AUTOMATIC) 

• The user can specify the instruction execution hardware avail- 
able in the CPU on which the loaded program will execute. This 
is coordinated with the UII object blocks in load modules so 
that the proper UII library routines will load automatically. 
(HARDWARE) (UII - IMimplemented Instruction Interrupt) 

• The user can execute the program from the keyboard in the loader 
without having to return to the PRIMOS command level. (EXECUTE) 
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Desectorization 

The loader performs a function during loading called desectorization. 
The need for this function arises because one -word memory reference 
instructions cannot directly reference all of memory. The loader com- 
pensates for this by generating a pointer to the operand in a base 
area and then modifies the instruction to reference through the pointer. 

The pointer default base area is from memory location '200 to '777. 
For many programs, this area is sufficient. However, for larger pro- 
grams this area might be inadequate. The loader has a number of commands 
to enlarge the default base area to create local base areas (SETBASE 
and AUTOMATIC). 

The base area below location '1000 can be used to desectorize any in- 
struction, no matter what its location. Local base areas (above location 
'1000) can be used only to desectorize instructions in a window around 
the local base area. The window extends approximately '400 locations 
above and below the base area. (See Figure 6-1.) 

The loader uses local base areas when possible in preference to a base 
area below location '1000. The location in base areas used by the loader 
is not available for any other use during program loading or execution. 



Initial location of *PBRK 



Base Area 

I 

Code and 

Length 

Data 



Base Area 



-«- Location of *PBRK at end of load 

-t- Location of *PBRK for start of next load 



Figure 6-1. Base Area Orientation 
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Clearing the User Address Space 

The PRIMDS level command FILMEM clears the user address space (for non- 
segmented programs) . It is suggested that this command be invoked prior 
to the first use of the Linking Loader and after unsuccessful loading 
attempts . FILMEM will clear the user address space and assure the user 
of a clean start. 

The command format is: 

FILMEM (RMODE (Prime 300 or higher) 32K)) 
or 

FILMEM ALL (RMODE (Prime 300 or higher) 64K)) 
and has the result below: 

Command Operating System 

PRIMOS II PRIMDS III, IV, V 

FILMEM Clears locations '100 to Clears locations '100 to 

'47777 '77777 

FILMEM ALL Clear all user space Clears locations ' 100 to 

'177777 

When FILMEM is employed prior to loading, all memory locations will 
initially be set to zero. If no other characters are ever moved to 
the data area, the zeroes will remain, possibly as unwanted characters. 

INVOKING TI-E LOADER 

When the COBOL program is using sequential files (non-MIDAS) , the Loader 
is invoked by the PRIMOS command: 

LOAD 

This loads the Linking Loader into locations '60000 to '63777 in the user's 
address space. When the COBOL program uses indexed and relative files 
employing MIDAS, the Loader should be invoked by the PRIMDS command: 

HILOAD 

This loads the Linking Loader into locations '174000 to '177777. Except 
for the relocation, HILOAD is identical to LOAD as far as the user is 
concerned. 
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USING THE LOADER UNDER PRIMOS 

All loader functions are available through user terminal keyboard commands. 
When the LOAD (or HI LOAD) command is typed, the Linking Loader is in 
command; the loader prints the $ prompt character on the user terminal and 
awaits a command line. 

EXAMPLE: 

LOAD 

r 

The $ prompt character means that the loader is in command mode until a 
QUIT command is received. (The QUIT command returns control to PRIMOS 
level) . Each prompt character may be followed by a loader command, ac- 
cording to the command definitions. After each successful execution of 
a command, the loader types the $ prompt character. If the load is 
conplete (i.e., there are no missing routines or modules) the loader will 
return the message LC, indicating that all external references have been 
satisfied. 

EXAMPLE: 

OK, LOAD invoke loader 

GO ~~ 

$ LO B^TEST load object program 

$ LI COBLIB load COBOL library 

$ U load FORTRAN library 

LC load is complete will be returned by the Loader 

$ QUIT ready for next command 

ok;^ 

If an error occurs in the loader itself during an operation, a two- letter 
error code will be printed followed by the $ pron^Jt character. Loader 
error messages and suggested handling techniques are discussed immediately 
following the discussion on most frequently used loader commands. 

When a system error (FILE NOT FOUND, etc.) is encountered, the loader 
prints this system error and returns prompt symbol ($) . 

NOTE : The loader also accepts commands from a command file. Comments 
may be used in this file; an asterisk (*) is the first character of a 
comment line. 
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Example o£ a Canmand File: 

* COMAND.FIUE. TO, LOAD. THE. LOADER 
FIIMBI 

* INVOKE LOADER. 
LOAD B-^PRGM 

LI COBLIB 

LI 

SAVE *PRGM 

QLTIT 

* INSTRUCT . CCMFUTER . TO . READ . NEXT . FROM . TERMINAL 
CO TTY 



COMMAND FORMATS 

Each loader canmand consists o£ a canmand name followed by a series o£ 
arguments, in the same format as the PRIMOS coranand line: 



CCMMAND name-1 name- 2 arg-1 arg-2 



. arg-n 



where CQ>1MAND is the canmand name, each name is a text string, and each 
Arg is an octal number of up to six octal digits. 

Long filenames (up to 32 characters) are supported; treenames may not be 
used. Command names may be abbreviated to two characters. Arguments 
are separated by spaces. Up to three alphanimeric fields (non-numeric 
first) and nine (numeric only) arguments are allowed. In many cases, it 
is possible to omit arguments. (If any argxjment is included all arguments 
to the left of it in the conmand line must also be included) . 



A Complete list of the LOAD commands is given below, 
minimum required abbreviation) . 



(Underlining indicates 



Co mmand 

ATTACH 

AIJTOMATIC 

COM^N 

EXECUTE 



Function 
Attach to different UFD 
Automatic generation of base areas 
Relocate common address 
Direct program execution 



6 - B 
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Command 

FORCELOAD 

HARDWARE 

INITIALIZE 

LIBRARY 

LOAD 

MAP 

MODE 

QUIT 

SAVE 

SETBASE 

VIRTUALBASE 

XPUNGE 



Function 

Unconditionally loads object files 

Hardware definition 

Reinitialization (default load state) 

Loads library files (.i.e., object files in UFD= 
LIB) 

Loads object files 

Generates Load state map 

Select addressing mode 

Returns command to PRIMOS 

Saves loaded memory image 

Defines a new linkage area 

Relocates base sector 

Deletes symbol 



Loader Commands 

It is convenient to discuss the loader commands under three categories: 

1. Commands the programmer uses quite often: 

MODE (mostly with MIDAS files) 

COMMON (mostly with MIDAS files) 

LOAD 

LIBRARY 

SAVE 

QUIT 

MAP 

EXECUTE 

2. Commands the programmer uses less often, usually in response to 
specific program requirements (as overflowing memory, etc.) 

AUTOMATIC 

INITIALIZE 

ATTACH 
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3. Commands designed for the use of the systems programmer. 
These are noiroally of veiy little use to the applications 
prograiraner. They are described in the PMA Programmer's 
Guide, PDR 3059. 

FORCELOAD 

VIRTUALBASE 

XPUNGE 

SETBASE 

HARDWARE 

Most Frequently Used Loader Commands 

MODE MODE parameter 

Specifies which of the CPU addressing modes the Loader is 
to use. 

File Type Parameter 

MIDAS D64R 

non-MIDAS (small program) D32R (Default) 
non-MIDAS (large program) D64R 

NOTES : 

1. D32R is the default parameter. It is not necessary 
to use a MODE command, as the Loader is in the mode 
when it is invoked. 

2. If a program loaded with the default mode parameter 
causes a memory overflow (MD) error, it is too large 
for 32K and should be reloaded with the mode set 
using a MO D64R command. The MDDE command, when used, 
should precede any other command. 

COMMON COMMON Address 

Moves the top or starting location of FORTRAN- compatible 
COMMON to the address specified. This is done before 
loading any object modules . COMMON is a FORTRAN concept 
and is usually of no concern to the COBOL applications 
programmer. However, the COBOL libraries use the FORTRAN 
library, which, in turn, requires a COMMON area. When 
MIDAS files are used, the COBOL library COBKID location 
would interfere with the normal location of the FORTRAN 
library COMMON. The programmer therefore moves COMMON with 
the command: 

CO 50000 
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LOAD 



LOAD Filename 

Loads an object file into memory. Filename is the name 
of the binary object file. The file name usimlly is 
of the form B<-Program-name. 



LIBRARY 



LIBRARY [Filename] 

Temporarily attaches to the LIBRARY UFD, loads the spec^ 
if led file, and returns to the original UFD. 

Filename is the name of the library file to be loaded; 
if omitted, the FORTRAN library FTNLIB is loaded. 

The normal library loading order is: 

MIDAS non-MIDAS 



LI COBKID 
LI 



LI COBLIB 
LI 



NOTE: LI is equivalent to LI FTNLIB. 



SAVE 



SAVE Filename 

Saves the loaded memory image under the name Filename in 
the current UFD. Filename is the name under which the 
memory image is to be stored. 

NOTE: Prime's convention is to use * as the first char- 
acter of the Filename for the stored memory image. The 
user is not restricted to this convention. 



QUIT 



QUIT 

Returns to the operating system command level with the 
user attached to the home UFD or the last UFD specified 
in an ATTACH command (see ATTACH) . If the loader has 
opened a MAP file , it is closed at this time (see MAP) . 
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Examples o£ load (user input is underlined) 



MIDAS files 



OK, HILOAD 

$ MP D64R 

$ CO 50000 

$ LO B^SAM 

$ AU 20 

$ LI COBK ID 

$ IJ ~ 

LC 

$ SAVE *SAM 

$ QUIT 

OK, 



invoke Loader 
set mode 

move COMMON out o£ the way 
load COBOL object file 
(see AUTOMATIC command) 
load COBOL MIDAS library 
load FORTRAN library 
load is complete 
save memory image 
return to PRIMOS 





non-MIDAS files 


OK, LOAD 


invoke Loader 


[$ MO D64R] 
$ LO B<-SAM 


[set mode if program is large] 
load COBOL object file 


[$ AU 20] 
$ LI COBLIB 
$ LI 
LC 

$ SAVE *SAM 
$ QUIT 
OK, 


[if program is large - see AUTOMATIC] 

load COBOL library 

load FORTRAN library 

load is complete 

save memory image 

return to PRIMOS 
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Less Frequently Used Loader Commands 

Such commands are generally used for one or more of the following reasons: 

1. Solving a specific problem in loading a program (see Loader 
error messages) ; 

2. Optimizing the loading of a program; 

3. Portability between different levels of Prime computers; 

4. Added convenience to the programmer. 

Load state parameters and their starting values are given in Table 6-1 below: 



Parameter 


Definition 


Value at Start 
of load I 


i *LOW 
! *HIGH 
; *START 
: *PBRK 
1 *CMLOW 
1 *CMHIGH 
1 *SYM 
; *UII 


The lowest location in memory loaded 
The highest location in memory loaded 
The location at which execution will begin 
The next location in memory to be loaded 
The lowest location in CO^M)N 
The highest location in CO]SM)N 
The lowest location used by the symbol table 
The net hardware /UII package requirement 
(see HARDWARE command for meaning) 


177777 ; 





1000 

XX777 

XX777 

YYOOO 







Table 6-1. Load State Definition 

NOTE: XX = Last Sector in loader occupied by loader 
YY = First Sector occupied by loader 
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AUTOMATIC AUTOMATIC XXXX)QC 

Causes the loader to insert a base area of length XXXXXX 
whenever the loader detects the end o£ a routine and more 
than 300 (octal) locations have been loaded since the 
last base area was inserted. 

The value o£ XXXXXX may be changed between load files. 
This automatic feature is turned off with an AU 

command. 

Automatic helps to reduce the number of manory references 
through sector by supplying base areas between load 
modules. 

INITIALIZE INITIALIZE [Filename] 

Initializes the loader and then optionally performs the 
same actions as a LOAD command. In the loader's initial- 
ized state, the load state parameters (Table 6-1) return 
to their default values. If no Filename is provided, 
the loader repeats its prompt character ($) . This 
allows the programmer to restart a LOAD session without 
the necessity of returning to the PRINfDS level and re- 
invoking the loader. 



ATTACH 



ATTACH [UFD] [Password] [Ldisk] [Key] 
Attaches to different UFD's. 



UFD: 



Password: 



Ldisk: 



Key: 



Any User File Directory. However, the user 
is attached to the home UFD when no UFD name 
is specified. 

The user gets owner status if he gives the 
owner password and non-owner status if he 
gives a non-owner password. The password 
parameter is necessary only when the UFD 
is password-protected. 

If the Ldisk parameter is omitted, the 
loader searches only device for the 
specified UFD. If an Ldisk value of 
'100000 is specified, the file system searches 
all initiated devices in logical unit order. 

The values for Key most likely to be useful 
during loading are: 
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Do not change home UFD (Default) . 

1 Adopt named UFD as home UFD. 

2 Attach to sub -UFD in the current 
UFD; do not set as home. 

3 Attach to subUFD in the current UFD; 
set as home. 

If key was specified as or 2, the user may 
return to the home UFD by entering AT. 

The ATTACH command allows the programmer to load 
program modules stored in different UFDs without the 
need of explicitly copying these program modules into 
the UFD invoking LOAD. 

NOTE : The LIBRARY command automatically attaches to 
the library UFD in order to load the library module and 
then re -attaches to the UFD in which LOAD was invoked. 



MAP I^ [Filename] [optiorf] 



Lists a load map. Filename is the name of the map to be 
opehefd, and option is an octal value which selects one 
of four map options. The loader will close the map 
fileCs), if any, at the end of the load session. 

Option Number Load Map Information 

None Load state, base area, and 

symbol storage map; symbols 
sorted by address (full map) . 

1 Load state only 

2 Load state and base area 

3 Unsatisfied references only 
Map Option 1 - Load State Map 

The load state map identifies: 

1. The lowest and the highest storage memory 
locations ; 

2. The location at which the program execution 
begins ; 
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3. The next location available for loading; 

4. The high and low common area; 

5. The lowest location used by the symbol table; 

6. The net hardware UII package requirement. 

These parameters are printed in the load state map with 
a corresponding storage address (See Table 6-1) . 

Load State Map 1 

OK, LOAD 

GO 

$ LO B^SIMP 

$ LI COBLIB 

$ IT 

LC 

$ MA 1 

*START 001000 *LOW 000200 *HIGH 006512 *PBRK 006513 

*CMLOW 063777 *CMHIGH 063777 *SYM 057401 *UII 000001 

Map Option 2 - Load State Map and Base Area Map 

The base area map includes the lowest, highest, and 
next available locations. Each line contains four 
addresses as follows: 

*BASE XXXXXX YYYYYY ZZZZZZ MVWWWW 

XXXXXX = Lowest location defined for this area 
YYYYYY = Next available location if starting up 

from XXXXXX 
ZZZZZZ = Next available location if starting down 

from WWWWWW 
WWWWWW = Highest location defined for this area 

The base area map includes a load state map: 

Load State and Linkage Area Map 2 

$ MA 2 

*START 001000 *LOW 000200 *HIGH 006512 *PBRK 006513 

*CMLOW 063777 *CMHIGH 063777 *SYM 057401 *UII 000001 

*BASE 000200 000220 000777 000777 

*BASE 001527 001571 001570 001570 

*BASE 002515 002557 002556 002556 

*BASE 003404 003427 003434 003435 
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MAP Option 3 - Unsatisfied References Only 

Lists the labels and external reference names which have 
been referenced but not loaded. 



Unsatisfied References Only MAP 5 

$ MA 3 (No unsatisfied references, therefore no printout) 

MAP Option Number Omitted - Full Map 

A full map contains all components of a load map including 
a full symbol storage listing. 

The symbol storage listing consists of every defined label 
or external reference name, printed four per line in the 
following format: 

namexx NNNNNN 

or 

Namexx NNNNNN** 

NNNNNN is a six-digit octal address. The ** flag means the 
reference is unsatisfied (i.e., has not been loaded). Every 
map begins with a reference to a special FORTRAN COMMON 
block LIST, defined as starting at location 1. 



Load State, Linkage Area and Instruction Storage Map 



$MA 
















*START 


001000 


*LOW 


000200 


*HIGH 


006512 


*PBRK 


0065:' 


*™low 


063777 


*CMHIGH 


063777 


*SYM 


057401 


*UII 


OOOOOj. 


*BASE 


000200 


000220 


000777 


000777 








*BASE 


001527 


001571 


001570 


001570 








*BASE 


002515 


002557 


002556 


002556 








*BASE 


003404 


003427 


003434 


003435 








LIST 


000001 


F$WA 


001020 


F$WX 


001026 


F$IO 


001102 


F$A1 


001501 


F$A3 


001501 


F$A2 


001505 


F$A5 


001505 


F$A6 


001512 


F$CB 


002034 


F$IOBF 


004660 


F$ER 


004762 


F$HT 


004767 


ACl 


005047 


AC2 


005050 


AC3 


005051 


AC4 


005052 


AC5 


005053 


WRASC 


005054 


IOCS$ 


005061 


IOCS$T 


005160 


F$AT 


005172 


F$AT1 


005174 


WATBL 


005237 


LUTBL 


005256 


PUTBL 


005313 


RSTBL 


005350 


0$AD07 


005405 
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Load maps may be sent to a file instead o£ the user's 
terminal . 

EXAMPLE: 

This example illustrates how the loaded memory image 
can be SAVEd as a file (RUNFIL) in the UFD, and a Load 
Map stored in a file MAPI. 

OK, LOAD invoke loader 

GO 

$ LO B^SIMP load object file 

$ LI COBLIB load COBOL library 

$ LT load FORTRAN library 

LC 

$ MA MAPI send map to file MAPI 

$ SA RUNf^IL save loaded memory image 

$ EX execute program 

TEST MESSAGE output of program 

Filename RUNFIL is now stored in the current UFD, and 
Filename MAPI contains the map. 

OK, SLIST MAPI 

GO 

*START 001000 *LOW 000200 *HIGH 006603 *PBRK 006604 

*CMLOW 063777 *CMHIGH 063777 *SYM 057374 *UII 000001 



EXECUTE EXECUTE 



Enables the user to start execution of the loaded 
program. Execution starts at the location shown by 
the *START entry of the load map. 



LOADER ERROR MESSAGES 

Message Meaning 

CM Command error. Illegal command format. 

* GT Group Type error. The loader has encountered an un- 
recognizable piece of object text. Loading is dis- 
continued. If object module is COBOL, make sure that 
it was compiled without errors. 

The source module is not an object file (output of 
FTN, PMA, etc.) or is a segmented-address object 
file (64V). 
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* MI xxxxxx 



MO 



Multiple Indirect. While linking in 64R mode, the 
loader attempted to add indirection to an already- 
indirect instruction at location xxxxxx. The contents 
of xxxxxx are the proper flag, tag, and object. 

Memoiy Overflow Errors. 

As users' programs become larger, W (memory overflow) 
errors become more frequent. This section contains a 
description of the several typical causes of these 
errors and suggested solutions to these causes. 

TVhen MO error occurs, the user should do a 'MA 2' and 
examine the map for any of the following possible 
situations (see MAP) : 

a. The address of the bottom of the symbol table 
(*SYM) is at or close to *PBRK. This indicates 
that there is not enough room below the loader 
for the whole program. HILOAD will probably solve 
the problem - assuming the user is not already using 
HILOAD. 



N6 



b. (For P400/500 only) The program and data are too 
large to fit into 64K of memory. The program 
modules should be recompiled in 64V mode and 
loaded using SEG (see Section 7) . 

Never 64R mode. Code is being loaded in 64R mode, 

whicli will not execute properly. Loading is discontinued. 

Recompile or reassemble the source files in 64R mode, 
or remove a D64R command from the load session, or 
look for a PMA module which has set the load mode to 
64R (see WDB) . 



* NOTE: 



These are hard errors; the load process cannot 
be renewed. Correct errors and begin the load 
process anew. 
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SECTION 7 
LOADING SEGMENTED PROGRAMS 



INTRODUCTION 

This section describes the use of SEG, which is Prime's utility module 
for loading, modifying, and running segmented programs. A segment can 
be up to 64K word block of user's virtual address space. Segment '4000 
is that segment which SEG and other external commands occupy when invoked. 
SEG creates a runfile of up to 15 or 31 segments. (Check with the systems 
manager to determine which version has been implemented.) 

PRIMOS assigns memory segments to a user as they are accessed. These 
are not released until logout. Since onlf a fixed number of segments 
are available for all users, additional segments should not be invoked 
unless the user is actually executing or examining a segmented program. 
Most of the functions of SEG use only one segment; only those options 
which restore a runfile use extra segments, i.e., RESTORE, RESUME, and 
EXECUTE. 

SEG must perform many of the operations on segmented runfiles which are 
performed on relative -addressed runfiles at the command level or by the 
Linking Loader. Since the nature of SEG runfiles differs from that of 
the relative -addressed runfiles, separate SEG commands are required. 

Segmented Runfiles 

A segmented runfile consists of segment subfiles in a segment directory. 
For this reason, the reader cannot delete a SEG runfile with a PRIMOS- 
level DELETE command; instead, use the DELETE command in SEG. (The 
TREDEL command in FUTIL can also be used to delete a SEG runfile, but 
it operates much more slowly than SEG's DELETE.) Each segment of the 
runfile consists of 32 ('40) subfiles of '4000 words each. Subfile 
of the runfile is used for startup information, the load map, and the 
memory image subfile map. Memory image subfiles begin in segment sub- 
file 1. Only the subfiles actually required for the runfile are stored 
on the disk. 

SEG's Loader 

SEG has a virtual loader (i.e., it loads to a file rather than memory) 
which requires the name of the runfile before anything is loaded. The 
runfile may be new, or it may be a previously used SEG runfile; it can 
be in any UFD. An old unsegmented SAVE file cannot be used. 
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As the symbol table is always available, SEG's loader may be used to add 
modules to an existing runfile. Similarly, a partial load may be saved 
with the SEG SAVE command and the load completed later. In addition, 
selected modules may be replaced in a SEG runfile. 

Functional Structure of SEG's Loader 

SEG's Loader has three types of commands: 

1. Commands which load object files; 

2. Commands which override the Loader's defaults C'how", "where", 
"what", "how much", "from where") ; 

3. Commands which perform operations with the current state of the 
load and/or with SEG itself (e.g., getting a load map, executing the 
program.) 

Type 1: Commands which load object file (LO, LI, RL, PL, IL) 

These commands all have the possibility of having modifiers included in 
their command line. These modifiers are never used in the basic SEG load 
sessions. For the most part, only LO and LI are needed. 

Modifiers are: 

A. Prefixes - P/, S/, D/, F/ 

B. Three numeric field suffixes 

The form of these modifiers is exactly the same for all loading commands. 

Type 2: Commands which override Loader Defaults (AT, A/SY, R/SY, SY, SP, 
ST, XP, OP, CO) 

Each of these commands requires an argument list unique to itself. These 
commands are never required in the basic SEG Load session. 

Type 3: Commands operating with the current state of LOAD or SEG (MA, 
SA, EX, IN, QU, RE) 

One or more of these commands is necessary to complete the load and leave 
the Loader in an orderly manner. The most useful commands are EX, SA, MA, 
and QU. Some of the type 3 commands have optional arguments; no arguments 
are required in the basic SEG Load session. 

Object File As Input 

The object file of the program modules must have been created using 64V 
mode of the COBOL conpiler. Modules written in other languages may also 
be loaded, if they have been conpiled or assembled properly. 
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Data consists o£ all COMMON blocks and link frames. Code and data are 
loaded in separate segments to support re-entrant procedures. The 
Loader assigns code and data segments. The first segment ('4001) is 
used for code. Usually segment '4002 will be used for data. The Loader 
loads data and code into appropriate segments and opens new segments 
as required. (It is possible to put both data and procedure in the 
same segment to save space. Care is required not to create an incorrect 
load.) 

The Stack 

The Loader assigns a stack (which is a dynamic work area) when SAVE is 
invoked. The stack is usually assigned as the next free location in the 
first procedure segment with '6000 free words. If no such segment exists, 
a new data segment will be assigned with the first location in the stack 
set to 4. The user may force the location of the stack and/or may change 
its size. (See the Loader's STACK command and the Modification sub- 
processor's SK command.) 

SEG Commands 

When invoking one of SEG's functions, the form of the command is: 

COMMAND Fname-1 Fname-2 Par-1 Par- 2 Par- 3 

Fname-1 is the filename or the treename of the file to be accessed. Tree- 
name enables files outside the current UFD to be accessed. SEG remembers 
the name, and if the name is not changed, it becomes the default. If no 
current file name has been established, SEG will request a treename. 
In order to reference a new runfile, any SEG command may be invoked 
with a new Filename-1. The nature of the other parameters depend on the 
function . 

A complete list of SEG commands is given below. Those commands discussed 
in this section are preceded by the greater than character (>) . Those 
commands discussed in the shared code section are preceded by the plus 
sign (+) . Permissable abbreviations are underlined. Commands not 
flagged require a knowledge of PMA and/or are specifically designed for 
in-house use. 

Command Function 

> DELETE delete a SEG runfile 

> HELP print a list of SEG commands at user's terminal 

> MAP generate a load map 

> MODIFY (SAVE) invoke modification sub-processor 

> NEW write new copy of SEG runfile to disk 
PATCH modify save range of existing segment 

> RETURN return to SEG command level 

> SK alter stack size and/ or location 

> START change program execution start address 

WRITE rewrite all segments to disk (to preserve patches) 
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Coimnand 



> 


PSD 


> 


QUIT 


> 


RESTORE 


> 


RESUME or RESUME 


+ 


SHARE 


+ 


SINGLE 


> 


TIME 


> 


VLOAD (LOAD) 


> 


VLOAD *~XL0AD*) 


:> 


ATTACH 


+ 


A/SYMBOL 


+ 


COMNDN ABS 


> 


COMNON REL 


> 

> 


D/** 


> 


EXECUTE 


+ 


F/** 


+ 


IL 


> 


INITIALIZE 


> 


LIBRARY 


> 


LOAD 


> 


MAP 




OPERATOR 


+ 


PL 




pj** 


> 


QUIT 


+ 


RETURN 


> 


RL 


> 


R/SYMBOL 


> 


SAVE 


+ 


SPLIT 


> 


STACK 


> 


SYMBOL 


+ 


S/** 


+ 


XP 



Function 

invoke VPSD debugging utility 

return to PRIMOS command level 

bring SEG runfile into user memory 

restore SEG runfile and begin execution 

write shared code and data into separate files 

create RNDDE file image of single segment 

print time and date of last runfile modification 

define runfile and invokes loader for creation 

define runfile and invokes loader for appending 

attach to another UFD 

define a symbol in memory and reserve space for 
it using absolute segment numbers 

relocate COIVMDN using absolute segment numbers 

relocate CO^M)N using relative segment assign- 
ment 

perform load using previous parameters 

save load to disk and execute program 

forceload all routines in object file 

load the impure FORTRAN library 

initialize and restart SEG's loader 

load library file (UFD=LIB) 

load object file (user UFD) 

generate loadmap 

relax/impose high level restrictions 

load the pure FORTRAN library 

load on a page boundary 

return to PRIMOS command level 

return to SEG command level 

reload a routine 

define a symbol in memory and reserve space 
for it using relative segment assignment 

save load to disk 

break segment in data and procedure portions 

change stack size 

define a symbol at a specific location in memory 

expunge symbols from symbol table; delete base 
information 



For clarity, the user may prefer to use command names in full rather than in 
abbreviated form. This will not adversely affect SEG's operation. 
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Vestigial Commands 

A number o£ commands exist whose functionality have been si^erceded, 
either by iirprovements in SEG, improvements in PRIMOS itself, or for 
increased clarity. For compatibility with previous revisions, these 
commands are still supported and will perform exactly as before. 
However, they will no longer be documented. 

Typing these letter combinations will not generate error messages, 
but users cannot be certain of the result . Do not use them . 

Commands at SEG level: LO, LO *, PA, SA 

Commands in the loader: AS, FO, SH 

Commands in the Modi- 
fication subprocessor: A, B, EN, KE, X 

SEG Messages 

When a load is complete, i.e., all references have been satisfied, 
SEG's Loader prints the message LC at the user's terminal. 

The message COMMAND ERROR and a new prompt character will be printed 
at the user's terminal in response to an unrecognized command or a 
command format error. The SEG Loader also has a series of error 
messages which will be printed at the terminal. These are listed 
in Appendix H, along with probable causes of the errors and sug- 
gestions for correcting or eliminating them. 



USING SEG 

SEG is a command under CMDNCO; the COBOL programmer will invoke SEG 
in one of two ways : 

1. SEG Filename - where Filename is the filename (or treename) 
of a SEG runfile. This command loads the runfile into segmented 
memory and starts execution. This is analogous to the R Filename 
command for programs loaded with Prime's linking loader (see 
Section 8 - Execution) . 

2. SEG - accesses the SEG commands allowing the user to load, 
modify, and/or execute a SEG runfile. These are discussed in 
this section. 

SEG displays a # on the terminal as a prompt character; the Loader and 
Modification subprocessors display a $ as a prompt character to solicit 
subcommands . 
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Command Files 

SEG accepts commands from a command file. 

NOTE : Command file comments, i.e., commands of the form: 

* THIS. IS. A. COMMENT 

cire supported only in SEG's loader. Use of comments in any other portion 
of SEG will give a non- fatal CONMAND ERROR and a prompt character. 

Filenames 

SEG supports both long filenames and treenames. Treenames conform to the 
PRIMOS standard with one exception. If a password is required to obtain 
access, the entire treename must be preceded and followed by single quotes. 

EXAMPLE: 

An object file SECRET in UFD CYPHER is protected by the password CRYPTO. 
To load such a file, the command would be structured: 

$LOAD 'CYPHER CRYPTO > SECRET ' 

(where user input is underlined) 

If a command is given and a SEG runfile name is required, the request 

SAVE FILE TREENAME: 

will be printed out. The user should enter a SEG runfile filename (or 
treename) . 

The first time a SEG runfile is entered, it is remembered by SEG and becomes 
the established runfile name. In most commands, it is then unnecessary to 
reference any SEG runfile if the established one is meant. This remains 
the established runfile name unless a new SEG runfile name is established 
by the user. (This is discussed under each specific command.) 

Frequently Used and Essential Commands - Applications Functions 

llie commands herein outlined are presented in the order in which they would 
normally be used. 
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HELP JffiLP 

Prints a list of the SEG commands at the user's terminal. 

VLQAD VLOAD [filename] 

This command accesses the SEG loader. Filename is the 
filename (or treename) of a SEG runfile. If filename is 
omitted, the established runfile will be used^ If file 
name as specified is the name of an existing SEG runfile, 
that runfile will be reinitialized before control is 
passed to the loader. 

NOTE : Prime's convention is to vise # as the first char- 
acter of a SEG runfile name (e.g., #TEST) . Although the 
system does not require this, the user should follow this 
convention unless there are compelling reasons not to do 
so. 

The VLOAD (or VLOAD *) command performs three functions: 

1. Defines (explicitly or in^licitly) the name of 
the SEG runfile. 

2. Specifies whether a new file is to be written or 
an existing file is to be added to. 

3. Transfers operations to the SEG Loader. The SEG 
Loader prints the prompt character $ to differ- 
entiate itself from SEG- level commands. 

The Loader has a large number of sub funct ions . Most of these subfunctions , 
specifically designed for use in creating very large applications packages, 
shared procedures, and Prime in-house systems, will probably be of little 
consequence to most users. Frequently-used Loader commands are discussed 
below in their most common form. 



LOAD LOAD filename 

Where filename is the filename (or treename) of the file 
to be loaded. Usually filename will be of the form 
B-«-Prgname. The file should be an object file created 
by the COBOL compiler with the 64V option. If filename 
is not given, or is an incorrect type (not an object tile) 
an error will be generated. 

The Loader will process the object file, making it part 
of the runfile being created, and linking it to other 
modules already loaded. All questions of memory manage- 
ment are handled by the Loader. 
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NOTE : If a treename is used, the Loader remains attached 
to the UFD (or sub-UFD) in which that file resides. The 
user must explicitly re-attach to the original UFD if 
desired, by typing AT in response to the $ pron^^t. 

LIBRARY LIBRARY [filename] 

Where filename is the name of the file in UFD=LIB which 
is to be loaded into the runfile. The file filename must 
be one containing object text compiled (or assembled) in 
64V mode; if not, an error will be generated. If filename 
is not supplied, the FORTRAN library files PFTNLB and 
IFTNLB will be used. The Loader will then process the 
library file in the same manner as LOAD processed object 
files. In most cases, any libraries needed are loaded 
after other object files. 

NOTC: LOAD and LIBRARY are part of the Loader's family 
oFload commands. Both may be modified by optional numeric 
parameters and/or command modifiers S/, F/, D/, to give 
the user greater control over placement of modules in the 
runfile. These options are described later in Sections 
11 and 12. 



MAP MAP 5 

This command prints a list of the unsatisfied references 
(i.e., procedures called which ha\e not been loaded) at 
the user's terminal. This command is especially useful 
if the user does not get the LC (Load Complete) message 
from the Loader. Loadmaps are discussed in detail in 
Section 11. 



SAVE SAVE 

This command saves the result of the load by writing all 
buffers out to the runfile on the disk. A location for 
the stack is assigned at this time. (A MAP command prior 
to SAVE will show no stack assigned; a MAP command after- 
wards will give the assigned location of the stack. 



EXECUTE E)^CUTE 

First SAVEs the program, if necessary, then executes it. 
After execution, control returns directly to PRIMOS. An 
EXECUTE command may follow a SAVE command. 
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QUIT 



guiT 

Returns the user to PRIMOS coinmand level. QUIT does not 
SAVE the runfile. To keep the established runfile, per- 
form a Loader SAVE prior to QUITting. 



EXAMPLE: 



The user has conpiled a main program, MAIN; a subroutine in a separate 
source file SUBR has also been compiled. Both have been compiled in 64V 
mode using the default object filenames. They could be loaded as fol- 
lows (user input is underlined) : 



OK, SEG 

GO 

# VLOAD #MAIN 

$ LO B<^4AIN 

$ LO B^SUBR 



$ 
($ 



LI VCOBLB 
LI VKDALB 



$ LI 

LC 

$ SAVE 

$ QUIT 

OK, 



bring SEG into memory 

invoke the Loader and establish a runfile 

load the main program 

load any separately compiled subroutine 

load the COBOL library 

load this system library if MIDAS files 

are used ) 
load the FORTRAN library 

Loader indicates all references are satisfied 
user saves runfile 
return to PRIMOS level 



DELETE 



DELETE filename 



(1) 



or 



DELETE 



(2) 



Where filename is the name (or treename) of a SAVE SEG 
rtmfile. This command deletes the SEG runfile filename 
(1) or the currently established runfile (2) . 

NOTE : Do not attempt to delete a SEG runfile with the 
PRIMOS level DELETE command. It will delete the segment 
directory, but not the subsidiary files in the directory, 
which you then cannot delete. If necessary to delete a 
runfile outside the SEG utility, use FUTIL'S TREDEL 
command. 
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SECTION 8 
EXECUTING "THE LOADED PROGRAM 

INTRODUCTION 

This section treats the following topics: 

• Execution of program memory images saved by the Linking Loader 
(64R) . 

• Execution of segmented runfiles saved by SEG's Loader (64V). 

• CM$L (64R)/C$IN C64V) utility programs. 

• Run- time error messages. 

EXEiCUTION OF PROGRAM MS4DRY IMAGES SAVED BY THE LINKING LOADER (64R) 

Execution of a COBOL program in 64R mode is performed at the PRIMOS level 
usd.ng the ^SUME command: 

OK. RF.SUMF, '"filename 

where ^filename is the name of the file containing the saved memoiy 
image from the loading process and is in the current UFD to be executed. 

RESUME brings the memory-image program * filename from the disk into the 
user's memory, and begins execution of the program after a dialogue with 
04$L (see below) . 

The START command allows programs to be executed which have been made 
resident in the user's memory by a previous RESUME command. This is 
usually occasioned by a STOP literal statement in the COBOL program. 

The START command is given as: 

OK, START 

The program resumes at the address value at which execution was 
interrupted. 
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EXAMPLE: 

OK, R *PRGR^■^ Begin execution 

GO 



QUIT User hit CTRL/P to stop. 

OK, S Restart program from last point o£ 

GO execution . 



Execution restarted 

Upon completion of the program, control returns to PRDOS command level. 

For a complete discussion of these commands, see the PRDCS Interactive 
User Guide, MAN 2602. 

EXECUTION OF SEGMENTED RUNFILES SAVED BY SEG'S LOADER (64V) 

Execution of a COBOL program in 64V mode is performed at the PRIMOS level 
using the SEG command: 

OK, SEG # filename 

where # filename is the filename (or treename) of a SEG runfile. SEG 
loads the runfile into segmented memory and begins execution of the pro- 
gram after a dialogue with C$IN (see below). SEG should be used for 
runfiles created by SEG's loader; it should not be used for program 
memory images created by the Linking Loader. 

EXAMPLE : 

OK, SEG #PRGRM Begin execution 

GO 



OK, Program complete; PRIM3S requests next 

command. 



CM$L (64R)/C$IN (64V) UTILITY PROGRAMS 

Immediately following the execute commands of ^SU^'^E for 64R mode and 
SEG for 64V mode, a series of questions will be asked concerning run- 
time file assignments . These questions are prompted by the utility 
programs CM$L for 64R mode, and C$IN for 64V mode. To the user, there 
will be no noticeable difference between the two. 
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The utility programs will ask on the terminal: 

ENTER FILENAME AND UNIT 

All succeeding lines will begin with the prompt character >. The proper 
response to 'the request above is to give the name of the file (as stated 
in the VALUE OF FILE- ID clause of the FILE DESCRIPTION) , followed by the 
treename desired. For example, sippose that in a COBOL program the 
following statements existed: 

FD TEST- FILE 

LABEL RECORDS ARE STANDARD 
VALUE OF FILE -ID IS 'FILEl' 

then the proper dialogue with CM$L or C$IN would be: 

ENTER FILENAME AND UNIT 
> FILE1 = PETERS>T1 

or 
> FILE1 = $M1, S, Tl, 000001 

The first statement would go to a UFD called PETERS and use a file called 
Tl as input to TEST -FILE in the program. 

The second statement requires MkG TAPE unit one to be assigned, with the 
tape mounted to contain a TAPE- ID of Tl and a volume serial of 000001. 

The utility programs CM$L and C$IN will do all pre -screening of the files 
and display the prompt character > while waiting for user input. There 
should be one entry for each FD in the program. IVhen no files remain 
to be entered, the single slash character (/) will conclude the session. 
Execution of the program will begin, using the file assignments viiich 
were just entered. 

Disk Formats (Filenames and Treenames) 

A treename in a disk format entry is an extended form of the filename, 
which describes the location of the file in the directory structure. 
Filenames and treenames may be of the following forms: 

1. FILE-ID=UFDNAME [password] [logical disk number (octal)] 

2. FILD-ID=* > filename 

3. FILE-ID=filename 

4. FILE-ID=<volumename>UFDNAME [password] > filename 

Everything to the right of the equal sign follows the rules for TREENAME 
fomation (see PE-T-341 for detailed treatment of TREENAMEs) . 

In 1 above, the volume with the specified logical disk number is searched 
for the specified UFDNAME. 
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In 2 above, the current UFD is the starting UFD. 

In 3 above, the current UFD is searched for the specified filename. 

In 4 above, the volume with the specified name is searched for the 
specified UFD name. If the volume name is a single asterisk (*) , the 
MFD in the current volume is searched. 

Tape Format 

FILE-ID=MAGTAPE, LABEL, TAPE-ID, TAPE-NO'IBER 

MAGTAPE: $Mr(X) X being a 9 -track drive number 

LABEL: N: for no label information 

S: specifies the tape contains standard labels and is 
pre -numbered. 

TAPE -ID: is up to a 17 character field which is written in the 
label of the tape being created; or is used for 
comparison if the tape is being read. Label must 
have been specified as S. 

TAPE NUMBER: is a 6 character field which is checked at open- time 
when reading a tape, but is not needed when creating 
a tape. 

CM$L/C$IN Error Messages 

The following are error messages which may be output by the CM$L or C$IN 
utility programs: 

FILENAME TOO LONG (no equal sign found) 
INVALID TREE SYNTAX (see allowable format) 
NO FILENAME ENTERED (equal sign with no filename) 
INVALID TAPE UNIT (format did not contain MTx) 
NO TAPE NAME ENTERED (standard label specified) 
INVALID STANDARD/NON LABEL (non S or N) 
TAPE NAME GREATER THAN 17 
TAPE NUMBER GREATER THAN 6 

RUN-TIME ERROR MESSAGES 

Alphabetic lists of both RMODE and VMODE run-time error messages are 
available in Appendix G. 
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SECTION 9 
SORT PROCEDURES 



EXTERNAL/INTERNAL SORT ROUTINES 

Various utilities are available to effect COBOL sort procedures. These 
include external and internal methods as outlined below: 



NOTE: 



The ANSI Sort-Merge Module is not supported by Prime COBOL. 



• External operating system COBOL sort procedures 

• Internal application sort subroutines 

• Sort considerations 

External Operating Systm COBOL Sort Procedures 

The External Sort utility of the Prime Operating System (PRIMOS) is 
easily accessed by a COBOL program. First, the user must specify the 
point in a program at which a sort is to be done. This is accomplished 
m the Procedure Division by employing a STOP statement at the desired 
location, followed by any valid literal. 



EXAMPLE: 



PROCEDURE DIVISION. 
BEGIN-PRDGR^M 

PERFORM CREATE -FILE THRU FILE-CREATED. 

STOP 'READY FOR EXTERNAL SORT' . 
STATE -TWO 

PERFORM ADDRESS - CHANGE 



At this point, control will shift from COBOL execution to the operating 
system command level. The user will then enter an interactive session 
on the terminal. 

In the following dialogue example, all underlined items must be typed 
by the user on the terminal: 
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SAVE *TEMP 11111111 



SORT 



This will save memory image 
locations o£ all necessary 
address registers in a file 
named *TEMP. 

This conmand invokes the SORT 
utility program. 



GO 

SORT program parameters are: 
Input File Name - Output File Name 
followed by pairs of starting and 
ending columns. 

INFILE OUTFILE 2 



Input pairs of starting and ending 
columns one per line. For reverse 
sorting enter "R" after ending 
columns . 



15 25 R 

Beginning SORT 
Passes 3 items 2010 
OK, 

RESTOR *TEMP 



START 



The operating system responds 
with this documentation on the 
user terminal. 



This entry specifies the input 
file name to be sorted, and the 
output file; both must be 
resident within your UFD. The 
2 indicates the number of columns 
to sort on. 



This specifies that the columns 
to be sorted are columns 1 through 
5, with a reverse SORT on columns 
15 through 25. 

The computer responds, indicating 
the SORT has begin and providing 
PASS and Item data. 

OK, indicates the SORT is complete. 
Control is returned to PRIMOS. 

This conmand will restore the 
memory image address register 
locations of the previously 
saved file. 

This conmand will return control to 
the next source line of the 
application program, which 
immediately follows STOP literal. 



NOTE: The interactive dialogue above may be established as a COMMAND file, 
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Internal Application Sort Subroutines 

SUBSRT is a sort siibroutine available to a COBOL program through a CALL 
STATEMENT. It is particularly effective and efficient when sorting 
3000 or fewer records. Por larger applications, its simple calling 
sequence and Data Division Entries may outweigh time considerations. 

1. Calling Sequence: 

The calling sequence for SUBSRT contains eight required 
parameters. Use of this call may appear as follows: 

Call 'SUBSRT' using SORT- INPUT- FILE, SORT-OUTPUT- 
FILE, SORT-PAIRS, SORT-START-COLUl^, 
SORT-END- COLUMN, SORT-PASSES, SORT- 
ITEMS. 

Any valid COBOL data-names may be used. 

2. Data Division Structure 

Using the above data-names the following DATA-DIVISION 
entries would be used. 

02 SORT INPUT FILE PIC X(6) VALUE 'SORTIN' . 

02 SORT-OUTPUT-FILE PIC X(6) VSLUE •SGRTOT'. 

02 SORT- PAIRS COMP VALUE 1. 

02 SORT- START- COLUMN COMP VALUE 1. 

02 SORT-END-COLUMN COMP VALUE 35. 

02 SORT-PASSES COMP. 

02 SORT- ITEMS CCMP. 

Using the CALL sequence outlined above in 1, and the related Data 
Division entries described in 2, the following would occur: 

An input file by the name of 'SORTIN' would be stored in 
Columns 1 through 35, with the sorted file being designated 
as output "SORTOr'. The number of passes and items sorted 
would be returned to the user fron the "SUBSRT" utility. 

Data-name parameters of the calling sequence above are defined as 
follows : 

• SORT- INPUT- FILE 

The actual file system name of the block of records to be 
sorted must be placed within this six character field. 

• SORT-OUTPUT-FILE 

The actual file system name for the sorted output file must be 
placed within this six character field. It may be the same name 
as the input file and may also be a file previously used by the 
COBOL application. 
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SORT-PAIRS 



This field must be specified as coii?5utational and must contain the 
value of the total number of pairs of columns on which the sub- 
routine will sort. 



• SORT-START-COLlff/IN 

This field must be specified as computational and must contain the 
value of the column on which to begin the sort. 

• SORT-END-COLUMN 

This field must be specified as computational and must contain the 
value of the column on which to end the sort. 

• SORT -PASSES 

This field must be specified as conputational , with no VALUE clause. 
This is a returned argument, stating how many passes the utility 
took to complete the sort. 

• SORT- ITEMS 

This field must be specified as computational but cannot contain 
a VALUE clause. This is a returned argument stating how many lines 
(or records) were actually sorted. 

Sort Considerations 

Job analysis for SORT utility selection should take into account a variety 
of factors. These include file size, processing mode, data type spec- 
ifications, command file specifications, loading factors, etc. 

As previously mentioned, internal sort subroutine, SUBSRT, is partic- 
ularly efficient when sorting 3000 or fewer records. Time efficiency 
decreases as record number increases. This should be considered when 
determining the most efficacious sort for the user's application. 

SUBSRT is not available for 64V mode. 

The PRIMDS External Sort utility allows specification of data type. ITiat 
is, ASCII, Binary, Single Precision Integer, Single Precision REAL, 
Double Precision REAL may be specified. SUBSRT peimits no such spec- 
ification. 

Command files used in conjunction with the External sort should be started 
on a unit greater than 6. The system default for running a command file 
is unit 6, however, SORT may also open unit 6. This conflict can result 
in the error message 'PRWFIL, UNIT NOT OPEN' This problem is avoided 
if a command file relating to a sort application is started on a unit 
greater than 6. 
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When using the internal SUBSRT subroutine, the SORT library must be 
loaded with the object program. The Linking Loader commands to ac- 
conplish this are as follows (underlined entries indicate user require- 
ments , $ indicates loader prompt) : 



OK, HILOAD 

GO 

$ CONM)N 100000 

$ NPDE D64R 

$ LOAD B^filename 

$ LIB COBLIB 

$ LIB SRTLIB 

$ LIB FTNLIB 

LC 

$ SAVE '^filename 

$ QUIT 



call loader 

set common 

load object program file 

load COBOL library 

load SORT library 

load system subroutines 

the system will respond with LOAD COMPLETE 

save the loaded program 

quit the loader; return to operating 
system 
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INTRODUCTION 
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COMMAND FILES 

PHANTOM USERS 

CX MODE 

The portions of SECTION 10 outlined above were incomplete at this printing. 
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SHARED PROCEDURES 



The following steps should be taken to create and load programs as shared 
procedures: (Each step will later be considered in detail.) 

• Determine whether shared procedure is applicable and desirable 

9 Write source code. Program must be identified with PROGRAM- ID 
where the program name must be MAIN. 

• Load to the runfile using the SEG Loader's. Debug the program. 

With this information, initialize and load to the runfile, 
splitting procedure and data portions of programs. 

• Load for shared procedure and return to SEG command level. 

• Separate out segments below '4001 into separate RMODE runfiles 
using SEG's SHARE command. 

• Incorporate runfiles below '4000 into segments for sharing using 
PRIMOS' SHARE command. 



APPLICABILITY 

In general, programs which are small, or which will normally only be run 
by one user at a time, are not candidates for shared procedure. Programs 
which are expected to be run by many operators simultaneously, especially 
large procedures which use relatively small amounts of data, are excellent 
candidates for shared procedures. Examples of the latter type include 
Prime's Shared Editor or a user-written order entry system. 

The advantages of shared procedures are: 

• Only one copy of code is necessary for all users 

• Decreases restore time 

• Program is more likely to be in cache memory; operation is much 
faster for multiple users 

• Decreased memory usage, reducing paging 

Once it is determined that a program will be loaded as shared procedure, 
the programmer must obtain from the system manager the segment numbers 
which are to be used for the particular program being loaded. Currently, 
segments '2000 to '2037 are available as public shared segments. Some of 
these segments may be occupied by Prime -supplied programs. For example, 
if the Shared Editor is installed, it will reside in segment '2000. 
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System Considerations for the Manager 

Public shared segments are a large but finite resource; their allocation 
should be made carefully and only for those programs which will benefit 
by being loaded as shared procedure. It is possible to incorporate more 
than one program in the same segment; the manager is responsible that 
no conflict will exist from overwriting, etc. 

CAUTION 

The public shared segments are re-initialized in a 
cold start of PRIfCS. The systems manager should 
include in the cold start command file the PRIMDS 
SHARE commands necessary to reload these segments. 
This also means the system manager must maintain 
copies of the SEG runfiles for each program. 



SOURCE CODE 

The main program which is loaded first must be identified with a PROGRAf^- 
ID clause as MIN. 



COMPILING 

The source program is compiled with the 64V mode option; this produces 
code to be loaded with SEG. 



LOADING 

Loading for shared procedure is a multi -phase process. The aim is to 
obtain an optimized load with the program operating properly as designed. 
It will be instructive to follow an example illustrating some general 
principles . 

Consider a program BENCH, with 3 large ODMMON blocks AA, BB, and AABB. 
The FORTRAN library is required. The simplest load, using SEG's defaults 
would be: (user input tinderlined) 

OK, SEG invoke SEG 

# VL #PGRM establish runfile and access loader 

$ L0 B^PGRM load main program 

$ LI VCOBLB load COBOL library 

( $ LI VKDALB for MIDAS files) 

$LI load FORTRAN library 

LC load is complete 

SA save result 

MA MAPFIL generate a map in file MAPFIL to be examined 

J^ return to PRIMOS 
OK, 
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At this point the program will be executed and, if necessary, debugged. 
The number o£ segments used can be decreased by moving the location by 
moving the location of COMMON blocks and the stack. The load would be: 
(user input underlined) 

OK, SEG invoke SEG 

# VL #PGRM establish runfile and access loader 

$ SY AA 4000 60000 locate COMMON block in Segment '4000 

above SEG 

$ SY BE 4002 1000 put BB in segment '4002 

$ SY AABB 4001 10000 put AABB in segment '4001 

$ L0 B-<-PGRM load user program 

$LI load FORTRAN library 

LC load complete 

$ SA save load 

$RE return to SEG command level 

*^ invoke Modification subprocessor 

$ SK 4001 170000 place stack above AABB in segment 

'4001 and assign it '170000 locations 

*RE return to SEG command level 

# MA * MAPFIL get a loadmap 

i^QU return to PRIMOS command level 



Since the user has taken over some of SEG's functions, he must check the 
loadmap to see if the load is reasonable. It would not be amiss at this 
point to be certain that the program executes properly. 



CAUTION 



Relative assignment numbers and absolute segment 
numbers must not both be used in the same load. 

LOADING FOR SHARED CODE 

Loading for shared code requires the capability of being able to separate 
the procedure frame from the linkage frames. This capability exists in 
the advance functionality of the loader commands. Other commands in the 
loader allow placing of COMNON and other symbols using absolute segment 
numbers, expunging defined symbols from SEG's symbol table, and 
force loading. 

The loader also allows segments to be split into procedure and data 
portions to conserve segments and/or to load into segment '4000 the RM3DE 
Interlude program RUNIT. RUNIT allows the segmented program to be invoked 
as an RMODE program from the user's UFD or installed in UFD=CMDNC0. 
These commands will be discussed later in this section. 
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SPLIT segno addr Note 1. 

or 

SPLIT addr Note 2. 

Breaks a segment into procedure (lower) and Cupper) portions. This 
operation conserves segments. It also allows the loading of RUNIT as 
an aid to creating shared programs. 

Segno is the absolute octal segment number. 

Addr is the location o£ the split in the segment. Addr must be a 
multiple of '4000. 

NOTES : 

1. Splits the segment into procedure and data portions as specified; 
used to decrease number of segments used. 

EXAMPLE: 

SP '4000 '10000 - splits segment '4000, with locations below '10000 
for procedure and rest of the segment for data. 

2. This is the form used for shared procedure. Segment '4000 is 
assumed. In addition to splitting the segment, the interlude pro- 
gram RUNIT is loaded (in 64V mode) beginning at location '1000. 

No data or procedure may be assigned to locations above '172000 in 
segmenlj '4000, as this is where RUNIT places its stack. 

After splitting, RUNIT and RESUME will exist in SEG's symbol table. 
RUNIT is the normal starting address; RESUME may be used as a 
starting address if the existing stack is to be preserved. 

NOTE : Once a segment has been split, it is addressable only specifically, 
i.e. , with the S/xx or P/xx command (or with D/xx following an S/xx or 
P/xx command). Loading must use absolute segment numbers. See S/xx, 
D/xx, P/xx. 

CAUTION 

SEG's Loader does not keep track of split segments and 
may assign the stack to the top of the procedure 
portion of a split segment. This may cause problems 
if there is not enough space between the end of the 
procedure portion and the start of the data portion. 
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A/SYMBOL 

A/ SYM BOL sname [segtype] segno size 

where: sname is the name of the symbol. 

segtype is the type of segment, either DATA. 

or PROCEDURE; if omitted, a data segment is assumed, 
segno is tEe absolute octal segment number, 
size is the number of locations to be reserved for 

the symbol if omitted; is assumed. 

This command places a symbol and reserved or more locations in memory 
for it. If the segment specified does not exist, it will be created. 

CAUTION 

The user must verify that the number of locations 
reserved for the symbol are adequate for its 
intended use, and that there is actually sufficient 
room in the segment for the size specified. 

Tliis command may not be used to satisfy imsatisfied references already 
existing in the load. 

Example: (TOP+1 is the next available location in a given segment.) 

A/SY KELVIN 4002 1000 place symbol KELVIN at the current TOP+1 

in data segment '4002 reserving 1000 
(octal) locations for it. 

A/SY KELVIN PR 4001 1000 place symbol KELVIN at current TOP+L in 

procedure segment '4001 reserving 1000 
(octal) locations for it. 

The example above illustrates one way of placing a CO^M)N block in a 
procedure segment. 

A/SY KELVIN DA 4001 1000 place symbol KELVIN at current TOP+1 in 

data segment '4001 reserving 1000 (octal) 
locations for it. 

If the segment specified above did not exist, it would be created and 
the address of KELVIN in it would be 0. (A special case of TOP+1.) 

COMMON ABS segno 

Vfliere segno is the absolute octal segment number into which COM^N will 
be loaded. 

When loading into specific segments, this command should be used to 
specify the CO^M)N segment either as the one into which the link frames 
are loaded, or another if there is some reason to move COMvDN away 
from the link frames. 
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CO ABS 4015 



Will cause the Loader to load all COMMON into segment '4015 so long as 
it will fit, then into segment '4016, '4017, etc. This bypasses SEG's 
normal default segment assignments. 

CAUTION 

Since SEG's normal defaults are bypassed by this 
command, it is the user's responsibility to be 
certain that segments being reserved for loading 
COMMON have not been reserved for other uses. 



ADVANCED FUNCTIONALITY OF THE LOADER'S FAMILY OF LOADING C0M^.1ANDS 

The complete family of loading commands are: 

LOAD load an object file (user UFD) 

LIBRARY load a library object file (UFD=LIB) 

RL reload an object module 

PL load the PFTNLB file (UFD=LIB) 

IL load the IFTNLB file (UFD=LIB) 

PL and IL load pure and impure FORTRAN libraries, respectively. (Relative 
segment assignments may be used with PL and IL, but there would rarely be 
a need for this.) Relative and absolute loading must not be mixed in the 
same load. 

Modules may be loaded into specific segments for procedure and link frames 
by use of the S/ prefix modifier. 

The command format is: 

S/xx [filename] addr psegno Isegno 

where xx is LO, LI, RL, PL, or IL. 

If LO or RL is used, filename is mandatory. 

If LI is used, filename is optional. (Omission loads PFTNLB and IFTNLB.) 

If PL or IL is used, filename should be omitted. 

Addr is the starting load address in the procedure segment. 

An addr of is interpreted as start loading at the current pointer 
position in the procedure segment. This is the usual value. 

Psegno is the procedure segment number. 

Lsegno is the data linkage segment number. 
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Both pse^ o and Isegno are absolute (octal) segment numbers ; both must 
be supplies . When loading shared code, procedure will be loaded in 
segments '2000 - '2037 as allocated by the system manager. 

As with the load into relative segment commands, the segments required 
will be created if they do not already exist. I£ a required segment 
runs out o£ room, the next segment in sequence will be created and used 
to continue the load. For example, if the user has declared psegno to 
be '2000 and segment '2000 becomes too full for the next routine to be 
loaded, segment '2001 will be created as a procedure segment and the 
load will precede in segment '2001. Note that some smaller routines 
may subsequently be loaded in segment '2000. The S/xx modifier does 
not place CCMMON areas; this should be done using the CO ABS command 
prior to the load. 

EXAMPLE: 

S/LO B^JUNK 2000 4002 - Load object file B^JUNK with its procedure 

beginning at the current load pointer 
location in segment '2000 and its data 
linkage areas beginning at the current load 
pointer in segment '4002. Previously COMON 
was located with a CO ABS command. 

S/IL 4000 4000 - Load the impure portion of the FORTRAN 

library into the split segment '4000. 

As with the relative assignment numbers, the D/ modifier prefix may be 
used. 

EXAMPLE: 

S/LO B^BENCH 2000 4000 
D/PL 

is equivalent to 

S/LO B^BENCH 2000 4000 
S/PL 2000 4000 

CAUTION 

When using this modifier (S/) some of SEG's checking 
mechanisms are overridden. Therefore, the user must 
carefully examine the loadmap to make sure there is 
no inconsistency or confusion. 

The S/ modifier may not be combined with the D/ 
modifier either as D/S/xx or S/D/xx. 
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Forceloading 



When a file is loaded, normally only those routines referenced by 
previously loaded modules (or by routines in the library) are loaded. 
When building templates or creating partial loads, it is often 
desirable to force all routines in a file to be loaded. Forceloading 
in SEG's Loader is accomplished with the F/ modification prefix as: 

F/xx (filename) [addr psegno Isegno] Note 1. 

or 

F/S/xx (filename) [addr psegno Isegno] Note 2. 

where xx is one of the loading commands, LO, LI, RL, PL, or IL. 

Filename is the filename (or treename) of the object file. It is 
mandatory for LO and RL, optional for LI, and should be omitted for 
PL and IL. 

Addr is the start address for forceloading in the procedure segment. 

Psegno is the procedure segment number. 

Lsegno is the data segment number. 

NOTES : 

1. This is a simple forceload of the object file filename. Both 
psegno and Isegno are relative assignment numbers. The defaults 
resulting if parameters are omitted are the same as for the commands 
without the F/ prefix. 

EXAMPLE: 

F/LO BATHINGS - forceload all modules in B<-IHINGS in default segment. 

F/LI - forceload all the FORTRAN library in default , segments . 

2. Forceloads object file to specific segments. Both psegno 
and Isegno are absolute (octal) segment numbers (see S/xx for 
details) . This format would be used for forceloading shared 
procedures . 

EXAMPLE: 

F/S/PL 4000 2000 4002 - Forceload all of the procedure of the 

FORTRAN library PFTNLB beginning at 
location '4000 in segment '2000 with 
linkage area in segment '4002. 
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NOTE : 

S/F/xx is identical to F/S/xx. 

The D/ prefix may be combined with F/. 

S/LO B^BENCH 2001 4002 
F/S/PL 2001 4002 

is equivalent to 

S/LO B^BENCH 2001 4002 
F/D/PL 



RETURN 

Returns the user to the SEG command level. This command does not SAVE 
the runfile; the user should perform the SEG SAVE subcommand before 
the RETURN if the established nmfile is to be kept. After loading 
for shared procedure has been completed, the load must be SAVED; control 
returned to the SEG level and SEG's SHARE command invoked. 



SPLITTING OUT 

After the load has been completed, the portions of the SEG runfile 
corresponding to segments below '4001 must be transformed into RNDDE 
runfiles using SEG's SHAI^ command. These files are similar to the 
relative addressed mode save files having a conventional save file 
header. No files are created for segments above '4000. If segment 
'4000 exists and it includes RUNIT (see SPLIT), it may be executed at 
PRIIOS command level. The command format is: 

SHARE [filename] 

Filename is the filename (or treename) of the SEG runfile. If omitted, 
the established runfile name is split out. 

The RUNIT interlude program sets the correct addressing mode; starting 
location and registers are set to the standard default values. 

SEG responds to the SHARE command by asking for a two -character ID. SHARE 
will use this ID to build the save files with the name yyxxxx, where yy 
is the ID given to SHARE, and xxxx is the segment number. 

EXAMPLE: (user input is underlined) 

#SH #TEST (use default values) 

TWO CHARACTER FILE ID: BE 

CREATING BE2000 

CREATING BE4000 

# (ready for next SEG command) 
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SINGLE 

SEG's SHARE coimiand creates an RMODE runfile for all segments below '4001. 
The SINGLE command creates an RMODE runfile for any specified segment, 
even those above '4000. This command is: 

SINGLE [filename] segno 

where filename is the SEG runfile name; if omitted, the established 
runfile is used. 

Segno is the segment number to be used to create the runfile. 

As in the SHARE command, the user is asked for a two character ID. 

EXAMPLE: (user input is underlined) 

# SI 4001 

TWO CHARACTER FILE ID: IX 

CREATING IX 4001 

# 

The SINGLE command only works for segments loaded with the S/xx command, 
including the RNDDE interlude in the SEG runfile. 

This method is of particular use in three cases: 

1. The user's program has a small procedure part requiring a large 
data area. 

2. The user has a large program, most of which is loaded below 
segment '4000 as shared procedure. 

3. The user's program is primarily a 'transaction processing' 
system. Most of the user's (large) program can be loaded at 
LOGIN time, or is loaded below segment '4000 as shared procedure. 

In case 1 the user will force all of the loaded portion of the program 
to reside in segment '4000. Unitialized CO^MDN blocks will be declared 
in other segments and need not be 'loaded' into memory. 

In case 2 the user will load only the impure parts of the procedure 
(such as IFTNLB) into segment '4000 and will place all link frames and 
initialized COMMON in segment '4000. 

In case 3 the external LOGIN program will load most of the user's SEG 
r^mfile (the portions residing above '4000) into memory at LOGIN time. 
The user's specific applications, referencing the fixed portions above 
and below '4000, will be loaded into segment '4000. This case requires 
the user to create a 'template' of the fixed portion of the applica- 
tion on top of which specific applications are loaded. 
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When the user's procedure is loaded with SEG's loader, segment '4000 
is declared as a split segment using the loader's SPLIT command, and 
specifying only the location at which the segment is to be split. This 
causes SEG's loader to create a procedure area below the designated 
location, and a data link frame area above it. Then the RMODE interlude 
RUNIT is automatically loaded into the procedure portion. At run- time, 
RUNIT will initialize the stack, and transfer control to the user's 
routine, MAIN. The user may load other procedure and link-data 
information into segment '4000 using the loader's S/xx command. 

The user must determine via a previous load where to split segment 
'4000. 

A slightly different load sequence from that given earlier in this 
section: 



* THE FOLLOWING EXAMPLE ILLUSTRATES USING SEG TO 

* LOAD A NON-SHARED PROCEDURE. 



SEG 



OK, 

OK, 

OK, 

OK, 

OK, 

GO 

#VLOAD #DISPL.NaNl_ SHARED 

$ LO B_DISPL 

$ LI VCOBLB 

$ LI 

l£ 

$ SAVE 

$ MAP 6 



$ MAP 7 

*START 004002 000006 *STACK 004001 002404 *SYM 



171716 



SEG. # 
004001 
004002 



TYPE 

PROC## 

DATA 



LCW 

001000 

000000 



HIGH 

002403 

000325 



TOP 

002403 

000325 



ROUTINE ECB 
C$NCLT 4002 000306 
MAIN 4002 000006 



PROCEDURE 
4001 002216 
4001 001000 



ST. SIZE LINK FR. 
000020 177706 
000072 177406 



DIRECT ENTRY LINKS 
EXIT 4001 002374 



TNOU 



4001 002400 



COMMON BLOCKS 

OTHER SYMBOLS 
$ QUIT 
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would load the program as non- shared procedure. The resulting R^DDE 
runfile BE4000 can be invoked with the PRIMOS command RESUME as R BE4000 
or it may be placed in the command UFD. 

Finally, when the load is complete and saved, the user returns to SEG 
via the RETURN command and enters SH on the terminal. When all appro- 
priate segments have been turned into separate runfiles, the one with 
the appended segment number '4000 may be run (suitably renamed i£ 
desired) from PRIMDS command level either from CMDNCO or by a PRIM3S 
RESUME command. 

EXA^.IPLE: 

Programmer has been assigned segment '2000 by the systems manager. 



* THE FOLLCWING EXAMPLE DEMOJJSTRATES USING SEG TO 

* GENERATE A SHAREABLE PROCEDURE. 
* 

SEG 



OK, 

OK, 

OK, 

OK, 

OK, 

GO 

# VLOAD #DISPL.SHARED_VERSION 

$ SP 4000 

$ S/LO B_DISPL 2000 4000 

$ D/LI VCOBLB 

D/PL 

LC 

$ S/IL 4000 4000 

§ SAVE 

$ MAP 6 



$ MAP 7 

*START 004000 004006 *STACK 004000 001616 *SYM 



171556 



SEG. # 


TYPE LCW 




HIOJ 


TOP 




004000 


DATA## 004000 


004431 


004431 




004000 


PROC## 001000 


001615 


001615 




002000 


PROC 001000 


002451 


002451 




ROUTINE 




ECB 


PROCEDURE 


ST. SIZE 


LINK FR. 


C$NCLT 


4000 


004306 


2000 


002216 


000020 


003706 


MAIN 


4000 


004006 


2000 


001000 


000072 


003406 


TUB 


4000 


004372 


2000 


002436 


000012 


003772 


TlOB 


4000 


004412 


2000 


002444 


000012 


003772 


TlOU 


4000 


004350 


2000 


002402 


000016 


003750 


TONL 


4000 


004326 


2000 


002374 


000012 


003726 


DIRECT 


ENTRY LINKS 










EXIT 


2000 002422 


TNOU 2000 


002426 


TNOUA 2000 002432 
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COMMON BLOCKS 



OTHER SYMBOLS 

F$FLEX 4000 001174 RESUME 4000 001042 RUNIT 4000 001000 

$ RE 

# SH 

TWO CHARACTER FILE ID: DI 
CREATING DI4000 
CREATING DI2000 

# 00 



OK, 



INCORPORATING FILES INTO SHARED SEGMENTS 

Using SEG's SHARE command creates one RIVDDE runfile for each segment 
o£ the SEG runfile below segment '4001. The R^ODE runfiles for segments 
below '4000 must actually be incorporated into those segments using the 
PRIIVDS SHARE command. This operation can only be performed at the system 
operator's console. The command format is: 

SHARE filename segno access -rights 

where filename is the name of the I^DDE runfile to be incorporated into 
the segment. 

Segno is the segment number to be shared. 

Access -rights are the access rights assigned to this segment. 

Access Righ ts Permitted Operations 

none 

200 read 

600 read and execute 

700 read, write, and execute 

Segments '1 to '12 and '2000 to '2037 are the current range of sharable 
segments; specification of segments other than these will give unpre- 
dictable results. 

CAUTION 

Since PRINDS IV resides in segments '1 to '12, users 
should not create files which need to be incorporated 
into these segments. 

If no value is specified, the default is '600. 
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The PRIMOS command OPR 1 must precede SHARE commands; OPR must follow 
the last SHARE command. 

EXAMPLE: (user input is underlined) 

OK, OPR 1 

OK, SHARE BE2000 2000 

OK, OPR default access 

The program BENCH can now be executed from the user's UFD by the command 
R BE4000 (the name of the RMODE runfile BE4000 may be changed if desired 
using the CNAME command) . 

CNAME BE4000 BENCH 

The RMODE image of segment '4000 may also be put into the command UFD and 
invoked as a command. 

OK, FUTIL invoke FUTIL 

> T0 CMDNCO define TO UFD 

> COPY BE4000 BENCH copy BE4000 into UFD=CMDNCO 

under the name BENCH 
>QU return to PRIMOS 

0K7 

It was not necessary to specify the FROM UFD; the default is the current 
UFD. 
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SECTION 11 
MANAGEMENT SYSTEMS AND LANGUAGE INTERFACE 



INTRODUCTION 

This section discusses interfaces o£ the COBOL language to the following 
Prime systems: 

• MIDAS, Multiple Index Data Access System 

• DBMS, Database Management System 

• FORMS, Forms Management System 

• Other Programming Languages 



MIDAS 

Multiple (Keyed) Index Data Access System, MIDAS, provides a series 
of programs and subroutines for the creation and maintenance of keyed- 
index and/ or keyed- index direct access (KI/DA) files. 

Keyed- index files are sometimes referred to as ISAM (Indexed Sequential 
Access Mode) files. Prime COBOL utilizes MIDAS for its ISAM files, 

NOTE : KI/DA is the file access method used by MIDAS. At present, MIDAS 
and KI/DA are identical. 

Requirements 

MIDAS usage requires that the UFD LIB contain the COBKID library (for 
non-segmented addressing use, 64R mode) , and the VKDALB library (for 
segmented- addressing use, 64V mode). At load- time, these libraries 
are loaded just prior to loading the FORTRAN library. 

Using MIDAS 

MIDAS usage falls into four areas (see Figure 11-1). 

• Creating/modifying the template - the user defines the data 
file, indices, etc, (CREATK) 

• Building the data file - data existing in a text or binary 
file are converted to a MIDAS file, (KBUILD) 

• Maintaining the file - data entries are added, deleted, 
chaaged, or viewed. 
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BUILD RLE 

TEMPLATE 

WITH CREATK 




NO ^ DOES 

<FILE TEMPLATE" 



REBUILD 

BROKEN FILES 

WITH REPAIR 



YES 



L. 



MODIFY FILE 

TEMPLATE 

PARAMETERS 

WITH CREATK 



YES 



REBUILD 
INDEXES, ETC. 
WITH REMAKE 



BUILD DATA 

FILE WITH 

USER PROGRAM 




BUILD DATA 

FILE USING 

KBUILD 



YES 



DELETE MIDAS 

FILE WITH 

KIDDEL 



YES 



(EXIT TO ^ 
PRIMPS J 




KEY! 



PRIME-SUPPLIED 
PROGRAM 



MAINTAIN 
FILE 



ADO 
RECORD 



BILD$R 
ADOI$ 



DELETE 
RECORD 



DELET$ 
T 



USER -SUPPLIED 
PROGRAM 



PRIME -SUPPLIED 
SUBROUTINES 



CHANGE/ 
UPDATE 
RECORD 



.,_w«.,i^ RECORD RECORD /" exitxo \ 

~BTLDrR"" """"""' ""upd'a^*"" ""sFfr" Vs p^'^°s ) 



UPDATE 
(LOCK$) 



x: 



INQUIRE/ 
RETRIEVE 
RECORD 



FIND$ 
NEXT* 
(LOCKS) 



Figure 11-1. User's Functional Overview 
o£ the Midas File System 
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• Performing housekeeping - files are restructured after signif- 
icant maintenance (REMAKE) , deleted in part or full (KIDDEL) , 
or rebuilt after crashes (REPAIR) . 

Maintenance of the file may be accon5)lished by more than one user simul- 
taneously. A lockout subroutine protects data entries from attempts at 
simultaneous changes/deletions. All other operations require the user 
to have exclusive access to the MIDAS file. 

The COBOL user will be most concerned with CREATK, REMAKE and KIDDEL; 
where after the initial dialogues later described, interaction with 
MIDAS is virtually transparent. 

The Template 

In order to initiate an Indexed or Relative file for Prime COBOL, the 
user must build a MIDAS Template File. This will minimally contain 
a segment directory, a file descriptor subfile, a one -level primary 
index subfile which contains the index descriptor block, and an empty 
last level index block. If the file is organized for direct access, 
data segments must be allocated and initialized. For each secondary 
index defined, there must be a corresponding index descriptor block and 
an empty last level index block. 

Creating the Template (CREATK) 

A template (file descriptor) for a keyed- index file can be created with 
the interactive utility program CREATK. The functions of CREATK are: 

• Create a new file 

• Modify index or data description for an old file 

• Add new secondary indices to a file 

• Display existing index or data descriptors. 

IVhen constructing a ten^Jlate, the user engages in an interactive dialogue. 
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Minimum Dialogue (user responses are underlined) 
Prompt Response 

OK, CREATK 



Remarks 



MINIMUM OPTIONS? 



FILE NAME? 



YES I£ minimum options is 

selected, all index 
level keys will have the 
same length as the full 
key for the last index 
level. The primary key 
will be stored with the 
data and not in the 
index entries of the 
secondary indices. All 
index blocks will default 
to a length of 440 words . 

[Volume name>UFD Passwd Ldisk] >f ilename 

Volume name>UFD: spec- 
ifies the name of the 
disk and the User File 
Directory (UFD) on which 
the file is to be 
created. Filename is 
the user assigned file 
name. 



NEW FILE? 
DIRECT ACCESS? 



INO J 



YES 



NO 



If NO, see NOTE 2 at 
conclusion of dialogue. 

For a new relative file 
(goes to dialogue 2) 

For a new indexed file 
(goes to dialogue 1) 
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( Dialogue 1) Data Subfile Questions 

(PRIME INDEX/RECORD KEY) 

Prompt Response 

KEY TYPE B 

KEY SIZE=: B number 



DATA SIZE=: 



number 



Remarks 



Number is the number o£ 
bits in the primary key. 
It is equal to 8 times 
the number o£ characters 
in the key ; e.g., 2 
characters in a key 
= 16 bits. The maximum 
size for an indexed file 
is 32 characters, or 
256 bits. 

Number of words for a 
data record, where number 
equals the record length 
divided by 2. For COBOL 
programs, this includes 
the key size, and a 
remainder factor of 1 
if it applies. 



(SECONDARY INDEX/ALTERNATE RECORD KEYS 
each alternate record key.) 



this section is repeated for 



Prompt 
INDEX NO.? 



Response 



DUPLICATE KEYS PERMITTED? 



? f yes"! 



Remarks 

The numeric variable is 
the niMber of the 
alternate record key. 
Carriage return (CR) 
will exit from CREATK, 
specifying no alter- 
nate indexes. 

Yes allows the data in 
this key field to be 
duplicated. No indi- 
cates that if the data 
in the key field is 
duplicated, the file 
will not be ipdated and 
the INVALID KEY clause, or 
the USE DECLARATIVE 
section will be activated. 
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Prompt 
KEY lYPE: 
KEY SIZE =: 



Response 

B 

B 



USER DATA SIZE =: 



[m] 



( Dialogue 2) Data Subfile Questions 

KEY TYPE: B 

KEY SIZE =: B number 



DATA SIZE =: 



number 



NUMBER OF ENTRIES TO ALLOCATE? number 



INDEX NO.? 



(CR) 



Remarks 



Enter the number o£ bits 
in the key; use same 
formula as for primary 
index. 

No data may be entered 
for secondary keys. 
The response must be 0, 
(CR), or (CR). 
Either option will 
return the user to the 
prompt INDEX NO? above, 
from which he may exit 
CREATK, or continue 
with alternate key 
specifications . 



Number is the number of 
bits in the relative key; 
i.e., characters in the 
key X 8. The maximum 
size is 6 characters, 
or 48 bits. In seq- 
uential mode with no 
key, size must be 
specified at maximum: 48. 

Number is the number of 
words in a data record: 
record length ^ 2 plus 
the remainder factor of 
1 if it applies. 

Number is the number of 
entries to allocate in 
the new KI/DA file. 
Entries are numbered 1-n 
inclusive; any reference 
outside this range 
results in an error. 

This concludes template 
creation and returns to 
command level. 
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NOTES: 



1. If an invalid response is entered by the user, the question 
(prompt) will be repeated. 

2, I£ CREATK is not being run for a new file, and the response 
to the prompt NEW FILE? is NO, the succeeding pronpt will be: 

r ADD 





MODIFY DATA 


FUNCTION? 


PRINT 
HELP 




FILE 




QUIT 

USAGE 




L (CR) 



The response options to the FUNCTION prompt have the following 
significance: 



ADD 



Resulting dialogue is similar to the secondary index dialogue, 
except that an error message will be generated if the subfile 
already exists. The return at the end of the dialogue is to the 
prompt, INDEX NO.? 



MODIFY DATA 

This sequence allows the user to redefine the data. The length of 
a data entry may be changed (shorter or longer) . It follows the 
Data Subfile Section above. At the end of the data dialogue, return 
is made to the prompt, INDEX NO.? 



PRINT 



„ , . , /numeric, 0-17 'I 
Results m the prompt: INDEX NO.? < data f 

The current configuration of the index subfile or data subfile 
given will be displayed on the user's terminal. The configuration 
displayed will be that in the file descriptor subfile. At the end 
of the display question, the prompt INDEX NO.? will be repeated. 



HELP 



The currently available options, and their functions, will be listed 
in the user's terminal. 
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FILE 



This optical will allow the user to specify a new working file 
without leaving and then re-entering CREATK. The program returns 
to the beginning of the dialogue with the prompt, FILE NAME? 



QUIT 

Exits 

USAGE 

This option will allow the user to display the number of entries 
currently available through any defined index. The number of 
entries are displayed as 'ENTRIES INDEXED' , 'ENTRIES IN OVERFLOW , 
and 'ENTRIES DELETED'. These values are summed to provide 
'TOTAL ENTRIES IN FILE'. 

This option is of particular significance to the COBOL programmer. 
It indicates the state of overflow and helps determine the need 
for RE^4AKE ■ 

REMAKE Program 

This program can perform four levels of restructuring: 

• Restructure selected secondary indices 

• Restructure all indices 

• Restructure all indices and data sub-file 

• Rewrite file into new file with new template. 

The programmer should run REMAKE after substantial numbers of data 
entries have been added to or deleted from the file. This restructuring 
clears out the index overflow areas (which when overloaded slow the 
searching process) and frees for use the space occupied by data 
entries flagged as deleted. See PDR 3061 Reference Guide, Multiple 
Index Data Access System (MIDAS) . 

KIDDEL Program 

This program will delete all or part of a MIDAS file ; the PRBCS DELETE 
command should not be used for indexed files. KIDDEL allows deletion 
of: 

• Selected secondary indices 

• Unwanted segments at the end of the data sub-file 

• The entire file 
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An example o£ an actual CREATK dialogue for sample program REF2 appears 
at the close o£ Section 16. 

Complete information on programs outlined above, and KBUILD and REPAIR is 
presented in the Reference Guide, Multiple Index Data Access System 
(MIDAS) PDR 3061. 

DBMS 

For complete information relating to COBOL interface to Database 
Management System (DBMS) , the user is referred to IDR 3046 , COBOL 
Reference Guide to DBMS. 



FORMS 

The Prime Forms Management System (FORMS) provides a convenient and 
natural method of defining a form in a language specifically designed 
for such a purpose. These forms may then be implemented by any 
applications program which uses Prime's Input -Output Control System 
(IOCS), including programs written in COBOL. Applications programs 
communicate with FORT-IS through input/output statements native to the 
host language. Programs which currently run in an interactive mode 
can easily be converted to use FORMS. See PTU 45 and IDR 3040, Forms 
Management System (FORMS) . 

OTHER PROGRIVMMING LANGUAGES 

The reader is directed to Section 17, Inter-Program Communication. 
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SECTION 12 
FUNDAMBMAL CONCEPTS OF COBOL 

DIVISIONS OF A COBOL PROGRAM: A SUMMARY 

Every COBOL program consists o£ four divisions: Identification Division, 
Environment Division, Data Division, and Procedure Division. 

• The Identification Division assigns a name to the program and allows 
the programmer to enter other documentary information, such as the 
programmer's name, the date the program was written, and so on. 

• The Environment Division specifies a standard method of e:xpressing 
those aspects of a data-processing problem which depend upon the 
physical characteristics of a specific computer. 

Two sections make ijp the Environment Division; the Configuration Section 
and the Input -Output Section. 

The Configuration Section describes the conputer configuration on which 
the source program is compiled, and the configuration on which the com- 
piled program is to be run. It also relates system names used by the 
compiler to names introduced by the programmer in the source program. 

The Input- Output Section contains the information needed to control 
transmission and handling of data between external media and the pro- 
gram. This section describes the name, type of organization, and access 
mode of each data file, and associates the file with a peripheral device. 

• The Data Division provides the compiler with a detailed description of 
the characteristics of every data item used within the program. Tliere 
are three sections of the Data Division: the File Section, the Working- 
Storage Section and the Linkage Section. 

The File Section describes the structure of data files. Each file is 
defined by a File Description entry and one or more Record Description 
entries . 

The Working -Storage Section describes records and noncontiguous data 
items which are not part of external files, but are developed and pro- 
cessed internally. It also defines data items whose values do not change 
during the execution of the program (i.e., constants). 

The Linkage Section of a COBOL program is meaningful only in a called 
program. This section, appearing in the called program, describes data 
items which may be referred to by both the called and calling programs. 
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o The Procedure Division contains instructions (COBOL statements) 
required to solve a data processing problem. 

This division contains two sections: declarative sections and 
procedural sections. 

Declarative sections are optional. IVhen used, they must be groined 
at the beginning of the Procedure Division. Declarative sections 
permit the execution o£ procedures which are not performed in the 
regular sequence of coding. Such out- of- sequence procedures are 
usually initiated by a condition which the program does not test 
directly. 

Procedural sections follow declaratives in a logical sequence. Each 

procedural section comprises one or more paragraphs. Each paragraph 

consists of one or more COBOL sentences. Sentences, in turn, are 
comprised of one or more COBOL statements. 

Execution of the procedures in the Procedure Division begins with 
the first statement in the division, excluding declaratives. State- 
ments are executed in the order in which they are presented for com- 
pletion, unless the rules indicate an exception. 

The Procedure Division ends at that point in the source program after 
which no further procedures appear. This coincides with the physical 
end in the program. 



REV. 12 



PDR3056 FUNDAMENTAL CONCEPTS OF COBOL 



The following skeletal coding defines program component structure and 
order : 

IDENTIFICATION DIVISION . 

PROGRAM- ID . program-name . 

[ AUTHOR , comment - entry . . . ] 

[ INSTALLATION , comment - entry. .. ] 

[ DATE -WRITTEN , conment-entry. . .] 

[ DATE -COMPILED , comment -entry. . . ] 

[ SECURITY , conment-entry...] 

[ REMARKS , comment - entry . . . ] 

[ ENVIRONMENT DIVISION . 

[ CONFIGURATION SECTION . 

[ SOURCE- COMPUTER , entry.] 

[ OBJECT-CCMPUTER. entry.] 

[ SPECIAL-NAMES , entry.]] 

[ INPUT -OUTPUT SECTION . 

FILE CONTROL , entry... 

[ I-O-CONTROL . entry...]]] 

DATA DIVISION . 

[ FILE SECTION . 

[file description entry 

record description entry ...]...] 

[ WORKING-STORAGE SECTION . 

[data item description entry] . . . ] 

[ LINKAGE SECTION . 

[data item description entry] . . . ] 

PROCEDURE DIVISION [ USING identifier-1. . .] . 

[ DECLARATIVES . 

{section-name SECTION , use -sentence.} 

[paragraph-name, [sentence] ...]... 

END DECLARATIVES .] 

[section-name SECTION .] 

{paragraph- name . [ sentence] ...}... 
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The source program on the following pages, SAMPLE, illustrates program 
component structure and order. SAMPLE creates and reads a relative file 
sequentially. 

A Listing File for SAMPLE is provided after the source program coding 
example. SAMPLE was conpiled in 64R mode. 
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Sequence 




60 



64 



68 



^^«r 



£i 



m&^^ 
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(0001) 

{0002) 

{0003) 

{000^) 

{0005) 

{0006) 

{0001) 

{000S) 

{0009) 

{0010) 

(|2f011) 

03012) 

{0012) 

{00U) 

(0015) 

(0016) 

(0017) 

(0018) 

(0019) 

(0020) 

(0021) 

(0022) 

(0023) 

(0024) 

(0025) 

(0026) 

(0027) 

(0028) 

(0029) 

(0030) 

(0031) 

(0032) 

(0033) 

(0034) 

(0035) 

(0036) 

(0037) 

(0038) 

(0039) 

(0040) 

(0041) 

(0042) 

(0043) 
(0044) 
(0045) 
(0046) 
(0047) 
(0048) 
(0049) 
(0050) 
(0051) 
(0052) 
(0053) 



SOUBCE FILE: SAMPLE 08/18/77 10:23 
IDENTIFICATION DIVISION. 
PROGRAM- ID. SAMPLE. 
INSTALLATION. PRME. 

REMARKS. THIS PROGRAM CREATES AND READS A RELATIVE FILE 

SEQUHSTTIALLY. 



ENVIRONMENT DIVISION. 
CCNFIGURATION SECTION. 
SOQRCE-CCiMPUTER. PRIME. 
OBJECT-COMPUTER. PRIME. 
SPECIAL-NAMES. CONSOLE IS TTY. 
INPUT-OUTPUT SECTION. 
FILE-CCNTROL. 

SELECT LISTVFILE ASSIGN TO PRINTER. 
SELECT CARD-FILE ASSIGN TO PFMS. „,^^^„ 

SELECT DIRECTORY-FILE ASSIGN TO PEMS, ORGANIZATION 

RELATIVE 
ACCESS MDDE IS SEQUENTIAL 
FILE STATUS IS FILE-STATUS. 
DATA DIVISICN. 

FILE SECTION. ___ 

FD LIST-FILE, LABEL RECORDS ARE OMITTED. 
01 PRINT-LINE, PICTURE X(12l). 
01 PRINT-REC. 

02 FILLER PIC X. 

02 PRINT-INPUT PIC X(80) . 
02 PRINT-ERROR PIC X(40) 
CARD-FILE, LABEL RECORDS ARE STANDARD 
VALUE OF FILE-ID IS ' INDATA' . 
01 CARD- IMAGE, PICTURE X (80) . 
DIRECTORY-FILE, LABEL RECORDS ARE STANDARD, VALUE OF FILE-ID 
IS 'REFHiE' 



FD 



FD 



01 



OWNER IS 'LDAVIS'. 
DIRBCTORY-RETORD . 



02 



02 
02 
02 
02 
02 
02 
02 



NAME. 

03 LAST-NAME 

03 FIRST-NAME 

FILLER 

ADDRESS 

FILLER 

CITY 

FILLER 



PIC X(15) 
PIC X(15) 



PHONE-NO 
FILLER 



PICTURE X(l). 
PICTURE X(25). 
PICTURE X(l). 
PICTURE X(4). 
PICTURE X(3) . 

PICTURE 9(7). 
PICTURE X(9). 



WORKING-STORAGE SECTION. 

77 FILE-STATUS, PICTURE X(2) , VALUE IS SPACE. 

01 HEADER. 

02 HI, PICTURE X(4) , VAIIJE IS 'NAME'. 
02 FILLER, PICTURE X(27) , VALUE IS SPACE. 
02 H2, PICTURE X(6) , VALUE IS 'STREET'. 
02 FILLER, PICTURE X(20) , VALUE IS SPACE. 
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W54) 

(0055) 

(0056) 

(0057) 

(0058) 

(0059) 

(0060) 

(0061) 

(0062) 

(0063) 

(0064) 

(0065) 

(0066) 

(0067) 

(0068) 

(0069) 

(0070) 

(0071) 

(0072) 

(0073) 

(0074) 

(0075) 

(0076) 

(0077) 

(0078) 

(0079) 

(0080) 

(0081) 

(0082) 

(0083) 

(0084) 

(0085) 

(0086) 

(0087) 

(0088) 

(0089) 

(0090) 

(0091) 

(0092) 

(0093) 

(0094) 

(0095) 



SOURCE FILE: SAMPLE 08/18/77 10:23 

02 H3, PICTORE X(4), VALUE IS 'CITY'. 

02 FILLER, PICTURE X(3) , VALUE IS SPACE. 

02 H4 PICTURE X(5), VALUE IS 'PHCNE', 
* 

* 

PROCEDURE DIVISIOJ. 
BiBGIN SECTICN. 
CREATE-FILE, 

OPm OUTPUT LIST-FILE DIRBCIDRY-FILE. 

OPEN INPUT CARD-FILE. 

WEOTi: PRINT-LINE FROM HEADER AFTER ADVANCING PAGE. 
READ-NEXT. 

READ CARD-FILE AT END GO TO 
LIST-DIRECTORY. 

^E)VE CARD-IMAGE TO PRINT-LINE. 

MDVE CARD- IMAGE TO DIRECTORY-RECORD. 

WEU:TE PRINT-LINE. 

WRITE DIRECTORY-RECORD INVALID KEY 
DISPLAY ' INVALID KEY" . 

GO TO READ-NEXT. 
LIST-DIRECTORY. 

CIXDSE CARD-FILE, DIRECTORY-FILE. 

DISPLAY 'END TEST TO CREATE FILE'. 

OPEN INPUT DIRECTORY-FILE. 

PERFORM LIST TEiRU LIST-DONE. 
LAST-SECTION. 
CLOSE-ALL. 

CLOSE DIRECTORY-FILE, LIST-FILE. 

DISPLAY 'EMD TEST SEQUENTIAL READ AFTER A START' 

STOP RUN. 
LIST. 

WraTE PRINT-LINE FRCM HEADER AFTER ADVANCING PAGE. 
READ-NEXT-DIRBCTORY-RBCORD . 

READ DIRECTORY-FILE NEXT RECORD, AT END 

GO TO LIST-DONE. 
MOVE DIRECTORY-RECORD TO PRINT-LINE. 
WRITE PRINTS-LINE. 

GO TO READ-NEXT-DIRBCTORY-RECORD. 
LIST^DOSIE. 
EXIT. 



0000 ERRORS 000jZf WARNINGS (COBOL VER 04) 
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LANGUAGE CONSIDERATIONS 
Format Notation 

Throughout the Reference portion of this document » basic fomats are 
prescribed for various clauses or statements. These generalized 
descriptions guide the prograniner in vrriting his awn statements. They 
are presented in a uniform systan of notation: 

1. All words printed entirely in capital letters are Reserved 
Words. These are words which have preassigned meanings. In all 
formats, words in capital letters represent an actual occurrence 
of those words. 

2. All underlined reserved words are required unless the portion 
of the format containing them is itself optional. These are key 
words. If any key word is missing or is incorrectly spelled, it 
is considered an error in the program. Reserved Words not under- 
lined may be included or omitted at the option of the programmer. 
These words are optional words; they are used solely for inproving 
readability of the program. 

3. The characters <, >, and = when appearing in formats, although 
not underlined, are required when such formats are used. 

4. All punctuation and other special characters represent the 
actual occurrence of those characters. Punctuation is essential 
where it is shown. Additional punctuation can be inserted, accord- 
ing to the rules for punctuation specified in this publication. 

In general, terminal periods are shown in formats in the manual 
because they are required; semicolons and commas are not shown 
generally because they are optional. 

5. Words printed in lower-case letters in formats represent generic 
parts (e.g., data-names) of which a valid representation must appear. 

6. Parts of a statement or Data Description entry which are enclosed 
in brackets [ ] are optional. Parts between matching braces ({ }) 
represent a choice of mutually exclusive options, of which one must 
be chosen. When brackets or braces enclose a portion of a format, 
but only one possibility is shown, the function of the brackets or 
braces is to delimit that portion of the format to which a following 
ellipsis applies. 

7. Certain entries in the formats consist of a capitalized word(s) 
followed by the word "Clause" or "Statement". These designate clauses 
or statements which are described in other formats in appropriate 
sections of the text. 

8. In order to facilitate reference to them in the text, some lower 
case words are followed by a hyphen and a digit or letter.. This mod- 
ification does not change the syntactical definition of the word. 
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9. The ellipsis (...) indicates that the iinmediately preceding unit 
may occur once, or any number o£ times in succession. A unit means 
either a single lower-case word, or a group o£ lower-case words and 
one or more Reserved Words enclosed in brackets or braces. I£ a term 
is enclosed in brackets or braces, the entire unit o£ which it is part 
must be repeated when repetition is speci£ied. 

10. Comments, restrictions, and clari£ications on the use and meaning 
of every format are contained in the appropriate portions o£ the 
manual . 

11. Multiple formats for a given COBOL verb are mutually exclusive op- 
tions, of which only one may be chosen. 

Punctuation Rules 

The following general rules of punctuation apply in writing source programs: 

1. A period, semicolon, or comma, when used, can not be preceded 
by a space, but must be followed by a space. 

2. A left parenthesis can not be followed immediately by a space; 
a right parenthesis can not be preceded immediately by a space. 

3. At least one space must appear between two successive words 
and/ or literals. Two or more successive spaces are treated as a 
single space, except in non-numeric literals. 

4. Relation characters should always be preceded by a space and 
followed by another space. 

5. When the period, comma, plus, or minus characters are used in 
the PICTURE clause, they are governed solely by rules for report 
items. 

6 . A comma may be used as a separator between successive operands 
of a statement, or between two subscripts. 

7. A semicolon or comma may be used to separate a series of state- 
ments or clauses. 

Coding Rules 

Since Prime COBOL is a subset of American National Standards Institute (ANSI) 
COBOL, programs are written on standard COBOL coding sheets (Figure 12-1). 
The following rules are applicable: 

1. Each line of code should have a six-digit sequence number in posi- 
tions 1-6, such that the source statements are in ascending order. 
Blanks are also permitted in positions 1-6. 
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2. Reserved Words for division, section, and paragraph headers 
must begin in the A Area (positions 8-11) . Procedure -names must 
also appear in the A Area (at the point where they are defined) . 
Level numbers may appear in the A Area. 

3. All other program elements must be confined to positions 12-72, 
governed by the other rules of statement punctuation. 

4. Positions 73-80 are ignored by the conpiler. Frequently, these 
positions are used to contain the program identification. 

5. Position 7 is used for special coding symbols. Explanatory 
comments may be inserted on any line within a source program by 
placing an asterisk (*) in position 7 of the line. Any combination 
of characters may be included in the A and B Areas of that line. 
The asterisk and the cliaracters will be produced on the source list- 
ing but serve no other purpose. If a slash (/) appears in position 
7, the next line will be printed at the top of a new page when the 
compiler lists the program. A hyphen (-) is used to continue a non- 
numeric literal from one line to another. Refer to Non-Numeric 
Literals for coding rules. 



vSEQUENCE 



A 



B AREA 



8-41 12 



-72 



COSflENTS 



73----8j3 



Figure 12-1. Standard COBOL Coding Sheets 



Prime Character Set 

The standard character set utilized by Prime is the ANSI, ASCII, 7-bit 
character set. The entire set of characters, with octal, hexadecimal, 
and punched card equivalents, is presented in Appendix E. 
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Collating Sequence 



Each character in the Prime character set has a unique octal value 
which establishes the collating sequence for the character set. This 
sequence conforms to the America Standards Code for Information Inter- 
change (ASCII). The characters in Appendix E, the ASCII Character 
Set, are arranged in ascending order from top to bottom. 

IJWGUAGE SPECIFICATIONS 
COBOL Character Se t 

The standard COBOL language character set utilizes 52 characters as 
follows: The numbers through 9, the 26 uppercase letters of the English 
alphabet, the space (blank), and 14 special characters. (A fifteenth 
special character, the apostrophe, is used by Prime COBOL as an alternate 
for the quotation mark) . The complete COBOL character set is illustrated 
in Figure 12-2. An outline of Prime COBOL symbol usage is given m 
Appendix ^F . 

The individual characters of the COBOL language are the basic units used 
to form the major elements of COBOL, i.e., character-strings, separators, 
words, statements, sentences, paragraphs, sections. 

Character Strings 

\ character -string is a character or a sequence of contiguous characters 
which forms a COBOL word, a literal, a PICTURE character- string, or a 
comment -entry. A character-string is delimited by separators. 

Picture Character- String s 

A PICTURE character- string consists of certain combinations of characters 
in the COBOL character set used as symbols. See Data Division, PICTURE 
for a description of the PICTURE character- string and the rules governing 
its use. A punctuation character which is part of the specification of 
a PICTURE character- string is not considered as a punctuation character, 
but as a symbol in that PICTURE character- string. 

Word Formation 

A COBOL word is a character -string of not more than 30 characters chosen 
from the following set of 37 characters: 

through 9 (digits) 
A through Z (letters) 
- (hyphen) 
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A word must begin with a letter; it may not end with a hyphen. A word 
is ended by a space, or by proper punctuation. A word may contain more 
than one embedded hyphen; consecutive embedded hyphens are also permitted. 

All words are either Reserved Words or programmer-defined words. 

If a programmer-defined word is not unique, there must be a unique method 
of reference to it by use of name qualifiers, e.g., TAX-RATE IN STATE - 
TABLE. Primarily, a non-reserved word identifies a data item or field, 
and is called a data-name. Other cases of non-reserved words are file- 
names, condition-names, mnemonic -names . 

Paragraph -name and section-name are programmer-defined words which are 
not required to begin with an alphabetic character. 
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CLASS 



alpha- ^ 
numeric 





aiARACIER 


MEANING 


SPECIAL USAGE 




'0, 1,.., 9 




digit 


COBOL word formation 


nujieric 


figurative 
w COTistants ' 


'low- VALUE (s) 
^ZERO, ZEROS, ZERfflS 


value (nul) 
value (zero) 


figurative constant 
figurative constant 


alidiabetic 


'A, B,.,, Z 




letter 


COBOL word formation 




space 




blank 


pmctuation 




figurative 


fsPACECs) 


value (blank) 


figurative constant 




^ constants 


I 








^+ 




plus sign 


sign symbol/arithmetic/edlting 




- 




minus sign 


sign synfcol/aritlimetic/coding 
syiribol/editing/OOBOL word formatic 




» 




asterisk 


coding synfcol/arithmetic/editing 




= 




equal sign 


arithmetic/relation tests/editing 




$ 




currency sign 


editing 




* 




comna 


punctual irai/edi ting 


special , 


J 




semicolon 


punctuation 


characters 






period 


punctuation 




M 

1 




quotation maik 

apostrophe (quotation mark 
siJjstituticn) 


pmctuation 
punctuation 


( 


( 




left parenthesis 


punctuation 




) 




right parenthesis 


punctuation 




> 




greater-than 


relation tests 




< 




less-than 


relation tests 




/ 




virgule (slash) 


arithmetic/editing/coding syi*ol 




figurative 


fQinrECs) 


value (quotation) 


figurative constant 




>. constant 


HIGH-VALUE (s) 


valte (delete) 


figurative constant 



Figure 12-2. COBOL CHARACTERS 



NOTE : When the figurative constant LOW-VALUES is used with binary 
Hila, it is interpreted as numeric. In all other instances, it is 
interpreted as alphanumeric. 
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Reserved Words 

A Reserved Word is one o£ a specified list o£ words which may be used 
in COBOL source programs, but which may not appear as programmer- 
defined words. They may only be used as specified in the general 
formats . 

The types of Reserved Words are: 

Key words 
Optional words 
Connectives 
Figurative constants 
Special -character words 

• Key Words 

A key word is one whose presence is required when the statement in 
which the word appears is used in a source program. Within each 
statement, such words are uppercase and underlined. 

• Optional Words 

Within each format, uppercase words which are not underlined are 
called optional words; i.e., they may appear at the user's option. 
The presence or absence of an optional v/ord does not alter the 
meaning of the COBOL program in which it appears, but is required 
as written when used. 

• Connectives 

The three types of connectives are: 

1. Qualifier-connectives used to associate a data-name, condition- 
name, text-name, or paragraph -name with its qualifier: OF, IN 

2. Series connectives which may be used to link two or more con- 
secutive operands : , (comma) or ; (semicolon) 

3. Logical connectives used in the formation of conditions: 
AND, OR 

• Figurative Constants 

Figurative constants are Reserved Words used to name and reference 
specific constant values. A figurative constant represents as many 
instances of the associated character as are required in the context 
of the statement. 

The singular and plural forms are equivalent and may be used inter- 
changeably . 
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A figurative constant may be used wherever "literal" appears in a 
format description; except that, whenever the literal is restricted 
to numeric characters, the only figurative constant permitted is 
ZERO (ZEROS, ZEROES). A figurative constant must not be bounded 
by quotation marks. 

Values, and the Reserved Words used to reference them are: 

ZERO 



ZEROS 
ZEROES 

LOW-VALUE 
LOW-VALUES 



= the ASCII character represented by Octal 260 



the character whose Octal representation is 000 



HIGH-VALUE = the character whose Octal representation is 377 
HIGH-VALUES 

^hR^o ~ ^^ quotation mark, whose Octal representation 

QUOTES ^3 242 



SPACE 
SPACES 



the blank character represented by Octal 240 



NOTE : ALL literal is not currently available. 

Special-Character Words 

The arithmetic operators and relation characters are Reserved Words. 
They comprise the following: 



OPERATORS 


MEANING 


Arithmetic : 


1 __™— . — . 

■ — . — 


+ 

/ 


Addition 
Subtraction 
Multiplication 
Division 


Relation : 




< 
> 


is equal to 
is less than 
is greater than 



Table 12-1. Special -Character Words: 
Arithmetic Operators/Relation Characters 
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Programmer-Defined Words 

A programmer -de fined word is one supplied by the user to satisfy the 
format of a clause or statement. Each is constructed according to the 
rules for WORD FORMATION. The categories for programmer-defined words 
include : 

Level -numbers 
Data-names 
File -names 
Condition-names 
Mnemonic -names 
Paragraph -names 
Section -names 

• Level Numbers 

For the purposes of processing, the contents of a file are divided 
into logical records. The level concept is inherent in the structure 
of a logical record, in that it allows the specification of record 
subdivisions for the purpose of data reference. 

Once a subdivision is specified, it may be further subdivided to 
permit more detailed data referral. The most basic subdivision of 
a record, that which cannot be further subdivided, is an elementary 
item. Data items which contain subdivisions are known as group items. 

Level numbers are one or two character, programmer-definded words. All 
level -numbers are numeric. They group items within the data hier- 
archy of the Record Description. Since records are the most inclusive 
data items, level -numbers for records begin at 01. 

Less inclusive groups are assigned numerically higher level -numbers. 
Level -numbers of items within groups need not be consecutive. A 
group whose level is 02 includes all groups and elementary items 
described under it until a level number less than or equal to 02 
is encountered. 

Separate entries are written in the source program for each level. 
The range of levels is 01 through 30. 1 through 9 may be written as 
single numbers. 

Level numbers 77 and 88 are used in certain applications and are 
defined together with additional level -number information in Section 
15, DATA DIVISION. 

A weekly timecard record illustrates the level concept. It is divided 
into four major items: name, employee -number, date, and hours, with 
more specific information appearing for name and date. 
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TIME CARD 



NAME 



EMPLOYEE NUM 



DATE 



HOURS WORKED 



LAST NAME 


FIRST- 


INIT 


MIDDLE 


-INIT 




MONTH 


DAY 


YEAR 



The timecard record might be described (in part) by Data Division 
entries having the following level -numbers, data names, and picture 
definitions : 



01 TIME-CARD. 

02 NAME. 

03 LAST-NAME 
03 FIRST- INIT 
03 MIDDLE- INIT 

02 FM'LOYEE-NUM 

02 DATE 

03 MDNTH 
03 DAY 
03 YEAR 

02 HOURS -WORKED 



PICTURE X(18) . 
PICTURE X. 
PICTURE X. 
PICTURE 99999. 

PIC 99. 
PIC 99. 
PIC 99. 
PICTURE 99V9 



Data -names 

In the preceding timecard example, TIME CARD, NAME, LAST NAME, 
FIRST- INIT., etc. are data-names supplied by the programmer. 



A data-name is a word assigned by the user to identify a data item 
used in a program. A data-name always refers to a field of data, 
not to a particular value. 

A data-name is formulated according to the rules for WORD FORMATION; 
it must begin with an alphabetic character. 

A data-name or the Key Word FILLER must be the first word following 
the level -number in each Record Description entry, as shown in the 
following general format: 



level 



data-name 
FILLER 
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This data-name is the defining name o£ the entry. It is the means 
by which references to the associated data area (containing the 
value of a data item) are made. 

If some of the characters in a record are not used in the processing 
steps of a program, then the data description for these characters 
need not include a data-name. In this case, FILLER is written in 
lieu of a data-name after the level number. FILLER can be used 
only at the elementary level; MSI standards do not permit its use 
at a group level. 

File -names 

A file is a collection of data records containing individual records 
of a similar class or application. A file-name is defined by an FD 
entry in the Data Division's File Section. FD is a Reserved Word 
which must be followed by a unique programmer- supplied word called 
the file -name. Rules for composition of the file -name word are 
identical to those for data -names (see WORD FORMATION) . References 
to a file -name appear in Procedure statements OPEN, CLOSE and READ, 
as well as in the Environment Division. 

Condition-names 

A condition-name is a name assigned to a specific value, set of 
values, or range of values, within a complete set of values which 
a data item may assume. 

A condition-name is defined within the Data Division in level 88 
entries. Rules for the formation of condition-name words are the 
same as those specified in WORD FORMATION. Additional information 
concerning condition-names, and those procedural statements em- 
ploying them, is given in the sections on the DATA and PROCEDURE 
DIVISIONS. 

Mnemonic -names 

A mnemonic -name is assigned in the ENVIRONMENT DIVISION under SPECIAL - 
NAMES for reference in ACCEPT or DISPLAY statements. A mnemonic- 
name is composed according to the rules for WORD FORMATION. 

Paragraph -names and Section-names 

Paragraph -names and Section-names are words which identify paragraphs 
and sections, respectively, in the Procedure Division. 

They may be up to 30 characters long, and may be all alphabetic, all 
numeric, or some combination of the two. 
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• Literals 

Literals are not, strictly speaking, words; they are actual values. 

A literal is a programmer- defined constant value. It is not iden- 
tified by a data-name in a program, but is conpletely defined by 
its OMi identity. A literal is either non-numeric or numeric. 

1. Non-Numeric Literals 

A non-ntfflieric literal must be bounded by matching quotation 
marks or apostrophes and may consist of any combination of 
characters in the ASCII set, except apostrophe or quotation 
marks, respectively. All spaces enclosed by the quotation 
marks are included as part of the literal. A non-numeric 
literal must not exceed 120 characters in length. 

The following are exanq^les of non-numeric literals: 

"ILLEGAL CONTROL CARD" 

'CHARACTER- STRING' 

"DO'S S DON'T'S" 

'PLEASE DON"T SCJJEEZE THE CHARMIN' 

Each character of a non-numeric literal (following the intro- 
ductory delimiter) may be any character other than the delimiter. 
That is, if the literal is bounded by apostrophes, then quotation 
(") marks may be within the literal, and vice versa. Length of 
a non-numeric literal excludes the delimiters; length minimum is 
one . 

A succession of two "delimiters" within a literal is interpreted 
as a single representation of the delimiter within the literal. 
The last exanple above illustrates this point. 

Only non-ntfflieric literals may be "continued" from one line to 
the next. When a non-numeric literal is of a length such that 
it cannot be contained on one line of a coding sheet, the fol- 
lowing rules apply to the next line of coding (continuation line) ; 

A. A hyphen is placed in position 7 of the continuation 
line. 

B. A delimiter is placed in B Area preceding the con- 
tinuation of the. literal. 

C. All spaces at the end of the previous line and any 
spaces following the delimiter in the continuation 
line and preceding the final delimiter of the literal 
are considered to be part of the literal. 
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D. On any continuation line, A Area should be blank. 

2. Numeric Literals 

A numeric literal must contain at least one and not more than 18 
digits, exclusive of sign and decimal point. A n\jmeric literal may 
consist of the characters through 9 (optionally preceded by a 
sign) and the decimal point. It may contain only one sign char- 
acter and only one decimal point. The sign, if present, must 
appear as the leftmost character of the numeric literal. If a 
numeric literal is unsigned, it is assumed to be positive. 

A decimal point may appear anywhere with the numeric literal, except 
as the rightmost character. If a numeric literal does not contain 
a decimal point, it is considered to be an integer. 

The following are examples of numeric literals: 

72 +1011 3.14159 -6 -.333 0.5 

By use of the Environment specification DECIMAL-POINT IS COMMA, the 
functions of the period and comma characters are interchanged, putting 
the "European" notation into effect. In this case, the value of "pi" 
would be 3,1416 when written as a numeric literal. 

Qualification of Names 

The user must be able to identify, uniquely, every name which defines ek 
element in a COBOL source program. The name may be made unique in its 
spelling or hyphenation; or, procedural reference may be accomplished by 
use of qualifier names. 

In the example following, the data-name, YEAR, will require qualification 
for procedural reference. 

01 



EMPLOYEE- 


RECORD 


02 


NAME 




02 


ADDRESS 


02 


HIRE 


-DATE 




03 


YEAR 




03 


MONTH 




03 


DAY 


02 


TERMINATION-DATE 




03 


YEAR 




03 


MONTH 




03 


DAY 



YEAR OF HIRE-DATE is a qualified reference which would differentiate between 
year fields in HIRE-DATE and TERMINATION-DATE. 
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Qualifiers are preceded by the word OF or IN. Successive data-name or 
condition -name qualifiers must designate lesser level -numbered groups 
which contain all preceding names in the conposite reference. That is, 
HIRE-DATE must be a group item (or file-name) containing an item called 
YEAR, Paragraph -names may be qualified by their containing section- 
name. Therefore, two identical paragraph-names cannot appear in the 
same section. 

Tlie rules for qualification are: 

1. Each qualifier must be of a successively more inclusive level 
within the same hierarchy as the name it qualifies. 

2. The same name must not appear at two levels in a hierarday. 

3. If a data-name or a condition-name is assigned to more than 
one data item in a source program, the data-name or condition- 
name must be qualified each time it is referred to in the Proce- 
dure Division (except in the REDEFINES clause where qualification 
must not be used) . 

4. A paragraph-name must not be duplicated within a section. 
When a paragraph-name is qualified by a section-name, the word 
SECTION must not appear. A paragraph-name need not be qualified 
when referred to from within the same section. 

5. A data -name cannot be subscripted when it is being used as a 
qualifier. 

6. A name can be qualified even though it does not need qualifi- 
cation. If more than one combination of qualifiers can make a name 
unique, only one combination can be used. The complete set of 
qualifiers for a data name must not be the same as any partial set 
of qualifiers for another data-name. 

7. A qualified name may only be written in the Procedure Division. 

8. The maximum number of qualifiers is one for a paragraph -name, 
five for a data-name or condition -name. File-names, mnemonic-names, 
and section-names must be unique. 
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Classes of Data 

The five categories of data- items (alphabetic, numeric, numeric edited, 
alpha-numeric, and alphanumeric edited) , as specified in the PICTURE 
clause, are grouped into three classes: Alphabetic, numeric, and alpha- 
numeric. For alphabetic and numeric data items, classes and categories 
are the same. The alphanimeric class includes the categories of alpha- 
numeric edited, numeric edited and alphanumeric (without editing) . Every 
elementary item except for an index data item belongs to one of the 
classes and further to one of the categories. The class of a group item 
is treated at object time as alphanxmeric regardless of the class of ele- 
mentary items subordinate to that group itan. The following chart depicts 
the relationship of the class and categories of data items. 



LEVEL OF ITEM 


CLASS 


CATEGORY 


Elementary 


Alphabetic 


Alphabetic 


Numeric 


Numeric 


Alphanumeric 


Numeric Edited 
Alphanumeric Edited 
Alphanumeric 


Nonelementary 
(Group) 


Alphanumeric 


Alphabetic 
Numeric 

Numeric Edited 
Alphanumeric Edited 
Alphanumeric 



Figure 12-3. Classes of Data 
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Data Levels 



The two major levels of data are group and elanentary: 

• Group Item 

A group item is defined as one having further subdivisions, so that it 
contains one or more elementary itens. In addition, a group item may- 
contain other groups. An item is a group item if, and only if, its 
level number is less than the level number of the immediately succeeding 
item. If an item is not a group item, then it is an elementary item. 
The maximum size of a group is 32,767 characters. A group cannot contain 
a PICTURE clause. 

• Elanentary Item 

An elementary item is a data item containing no subordinate itons. An 
elementary item must contain a PICTURE clause, except when usage is des- 
cribed as CCMPUTATIONAL (binary) , or I^©EX. 

The classes of data are: Alphabetic, numeric, alphanimeric . Within these, 
the categories of data are: Alphabetic, nuneric, ntmeric edited, alpha- 
numeric. 

• Alphabetic Item 

An alphabetic item consists of any combination of the 26 characters of the 
English alphabet and the space character. 

• Numeric Item 

A maximum number of 18 digits is permitted; the exact number of digit 
positions is defined by the specification of 9's in the picture- string. 
For example, PICTURE 999 defines a 3-digit item whose maximum decimal 
value is nine hundred and ninety-nine. 

• Numeric Edited or Report Item 

A report itam is an edited numeric item containing only digits and/or 
special editing characters. It must not exceed 30 characters in length. 
A report item can be used only as a receiving field for numeric data. 

• Alphanumeric Edited Item 

This is an alphanumeric itan with editing characters contained in the 
PICTURE description. 

• Alphanumeric Item 

An alphanumeric itan consists of any combination of characters, making a 
character string. 
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Data Representation 

Data is further categorized by the fomat in which it is stored in the 
conputer. The formats are: external decimal, internal decimal, binary 
and index. These formats are directly related to usage, as outlined 
in the Table 12-2. 

• External Decimal Item 

An external decimal item is one in which one byte (8 binary bits) is 
employed to represent one digit. It can be a group or an elementary 
item. The USAGE for an external decimal item is always DISPLAY. 

• Internal Decimal Item (Packed DECIMAI.) 

An internal decimal item is packed decimal format. It is attained 
by inclusion of the COMPUTATIONAL- 3 USAGE clause. 

A packed decimal item defined by n 9's in its PICTURE occupies ^+1 
bytes in memory. All bytes, except the rightmost, contain a ^ 
pair of digits, each digit being represented by the binary equi- 
valent of a valid digit value from to 9, For this reason, when 
using packed decimal, the optimum space allocation should be an 
odd size field. 

In the rightmost byte of a packed item, the left half contains the 
item's low-order digit, while the right half contains a representation 
of the sign. An operational sign capability is always present for 
a packed field, even if the picture lacks the leading character S. 

• Binary Item 

A binary item uses the base 2 system to represent an integer not in 
excess of 32,767. It occupies one 16-bit word. The leftmost bit of 
the reserved area is the operational sign. No picture clause is 
required; usage is COMPUTATIONAL. If a PICTURE clause is specified, 
and a decimal point is included, DISPLAY usage is assumed. 

• Index Item 

An index item has no picture; usage is INDEX. It is equivalent to 
COMPUTATIONAL. 
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USAGE IS 



DISPLAY 



COMPUTATIONAL 



INDEX 



compu]:ational-3 



MACHINE description 



EXTERNAL DECIMAL 



BINARY 



BINARY 



INTERNAL DECIMAL 



Table 12 "2. Data Representation and Usage 

Standard Alignment Rules 

1. I£ the receiving data item is described as numeric: 

A "me data is aligned by decimal point and is moved to the 
receiving digit positions with zero fill or truncation 
at either end, as required. 

B. men an assumed decimal point is not explicitly spec- 
ified, the data item is treated as i£ it had an assumed 
decimal point immediately following its rightmost digit. 
It is aligned as in Rule 1-A above. 

2 If the receiving data item is numeric edited, the data moved 
to the edited data item is aligned by decimal point. Zero tilling 
or truncation, at either end, occurs as required within the re- 
ceiving character positions of the data item, except where editing 
requirements cause replacement of the leading zeros. 

3 If the receiving data item is alphanumeric (other than a numeric 
edited data item), alphanumeric edited or alphabetic, the sending 
data is moved to the receiving character positions and aligned at 
the leftmost character position in the data item. Space till or 
truncation occurs to the right, as required. 

If the JUSTIFIED clause is specified for the receiving item, these standard 
rules are modified as described under JUSTIFIED, Data Division. 
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EXAMPLES: Qi=hlank, C-)=implied decimal 



DATA TO BE 
STORED 



ABC 

ABCDEF1234 
AAABBBCCCDD 
AAABBBCCCDDDE 



RECEIVING FIELD 
BEFORE TRANSFER 



PQRSTUVWXYZ 
PQRSTUVWXYZ 
PQRSTUVWXYZ 
PQRSTUVWXYZ 



RECEIVING FIELD 
AFTER TRANSFER 



ABCDEF1234i^ 
AAABBBCCCDD 
AAABBBCCCDD 



The examples above show the results of moving various length alphabetic 
and alphanumeric items into an eleven -character field. 



DATA TO BE 


RECEIVING FIELD 


RECEIVING FIELD 


STORED 


BEFORE TRANSFER 


AFTER TRANSFER 


3-4 


987-654 


003-400 


345^^678 


987-654 


345-678 


12345-67890 


987-654 


345-678 


34" 


987-654 


034-000 


3-4 


ABC234 


5mw> 


•1234567890' 


ABC234 


123456 


1234567890 


987-654 


890-000 


1234567890 


9876-54 


7890-00 



The examples above show the results of moving various length numeric 
Items into a six-character field. The compiler assumes a decimal point 
at the rightmost end of the field to be stored. 

Algebraic Signs 

Algebraic signs fall into two categories: operational signs and editing 
signs . Operational signs are associated with signed numeric data items 
and signed numeric literals to indicate their algebraic properties 
Editing signs appear on edited reports to identify the sign of the item 
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The SIGN clause permits the programmer to state explicitly the location 
o£ the operational sign. Editing signs are inserted into a data item 
through the use of the control symbols o£ the PICTURE clause. 



Arithmetic Expressions 
• Definition 

An arithmetic expression can be an identifier of a numeric elementary 
item, a numeric literal, such identifiers and literals separated by 
arithmetic operators, two arithmetic expressions separated by an 
arithmetic operator, or an arithmetic expression enclosed m paren- 
theses. Any arithmetic expression may be preceded by a unary operator. 
Permissible combinations of variables, numeric literals, arithmetic 
operator and parentheses are given in Table 12-3. 

Identifiers and literals appearing in an arithmetic expression must 
represent either numeric elementary items or numeric literals on 
which arithmetic may be performed. 

« Arithmetic Operators 

The specific characters below represent the binary and unary arith- 
metic operators. They must be preceded and followed by at least one 
space . 



Binary Arithmetic 
Operators 



/ 

Unary Arithmetic 
Operators 



Meaning 

Addition 
Subtraction 
Multiplication 
Division 



Meaning 

The effect of multiplication by 
numeric literal +1. 

The effect of multiplication by 
numeric literal -1. 



Parenthesis 
( ) 



Meaning 

Used to enclose expressions to 
control the sequence in which 
conditions are evaluated. 
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Rules 

1. Parentheses may be used in arithmetic expressions to specify the 
order in which elements are to be evaluated. Expressions within paren- 
theses are evaluated first ; and within nested parentheses , evaluation 
proceeds from the least inclusive set to the most inclusive set. When 
parentheses are not used, or parenthesized expressions are at the same 
level of inclusiveness, the following hierarchical order of execution 
IS implied: 

1st - Unary plus and minus 

2nd - Multiplication and Division 

3rd - Addition and subtraction 

When the sequence of execution is not specified by parentheses, the 
order of execution of consecutive operations of the same hierarchical 
level is from left to right. 

EXAMPLE: 

A+B/(C-D*E) 
This expression is evaluated in the following ordered sequence: 

(1) Confute the product D times E, considered as intermediate 
result Rl. 

(2) Compute intermediate result R2 as the difference C-Rl. 

(3) Divide B by R2, providing intermediate result R3. 

(4) The final result is computed by addition of A to R3 , 
Without parentheses, the expression 

A+B/C-D*E 

is evaluated as: 

Rl = B/C 
R2 = A+Rl 
R3 = D*E 

final result = R2-R3 

When parentheses are employed, the following punctuation rules should 
be used: 

(1) A left parenthesis is preceded by one or more spaces. 
C2) A right parenthesis is followed by one or more spaces. 
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The expression A-B-C is evaluated as (A-B)-C. Unary operators 
are permitted, e.g.: 

COMPUTE A = +C +4.6. COMPUTE X = -Y. 

2. Operators, variables, and parenthesis may be combined in arith- 
metic expressions as summarized below in Table 12-3. 



FIRST 


SECOND SYMBOL 






SYMBOL 


Variable 


* / - + 


Unary + or - 


( 


) 


Variable 


X 


P 


X 


X 


p 


* / = - 


P 


X 


P 


P 


X 


Unary + or - 


P 


X 


X 


P 


X 


( 


P 


X 


P 


P 


X 





X 


p 


X 


X 


p 



Table 12-3. Symbol Combinations in Arithmetic Expressions 

In the table above, P = permissible, X = invalid, Variable indicates 
an identifier or literal. 

3. An arithmetic expression may begin only with the symbol ( + - 
or a variable; it may end only with a ) or a variable. There must 
be one-to-one correspondence between left and right parentheses of 
an arithmetic expression such that each left parenthesis is to the 
left of its corresponding right parenthesis. 
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Arithmetic Statements 

The arithmetic statements are the ADD, COMPUTE, DIVIDE, MULTIPLY, and 
SUBTRACT statements. These have several common features. 

1. The data descriptions of the operands need not be the same; 
any necessary conversion and decimal point alignment is supplied 
throughout the calculation. 

2. The mascimttm size of each operand is eighteen (18) decimal digits. 
The composite of operands, which is a hypothetical data item resulting 
from the superimposition of specified operands in a statement aligned 
on their decimal points, must not contain more than eighteen decimal 
digits. 

Overlapping Operands 

When a sending and a receiving item in an arithmetic statement or an INSPECT, 
MOVE, SET, STRING, UNSTRING, or other statements share a part of their storage 
areas, the result of the execution of such a statement is imdefined and un- 
predictable. 

Conditional Expressions 

• Definition 

Conditional expressions identify conditions which are nested to enable 
the object program to select between alternate paths of control depend- 
ing upon the truth value of the condition. Conditional expressions are 
specified in the IF, PERFORM and SEARCH statements. There are two cate- 
gories of conditions associated with conditional expressions: simple 
conditions and compound conditions. 

• Sinple Conditions 

The simple conditions are the relation, class, condition-name, and sign 
conditions. A simple condition has a truth value of 'true' or 'false'. 
The inclusion in parentheses of simple conditions does not change the 
simple truth value. 

1. Relation Condition 

A relation condition has the format: 

operand relation operand 

Where operand is a data-name, literal or figurative -constant. 
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A relation condition has a truth value of 'true' if the relation 
exists between the operands. Comparison of two numeric operands 
is permitted regardless of the formats specified in their respective 
USAGE clauses. However, for all other con^iarisons , the operands 
must have the same usage. 

Relation has three basic forms, expressed by the relational symbols: 
equals (=) , less than (<) , or greater than (>) . 

Another form of relation which may be used involves the Reserved Word 
NOT, preceding any of the three relational symbols. Thus, the six 
relations in conditions are: 

Relation Meaning 

is equal to 
< is less than 

> is greater than 

NOT = is not equal to 



NOT 
NOT 



< is greater than, or equal to 

> is less than, or equal to 



Usages of Reserved Word phrasings EQUAL TO , LESS THAN, and GREATER 
THAN are accepted equivalents of = < > respectively. Any form of the 
relation may be preceded by the word IS, optionally. 

NOTE : Although required where indicated in formats, the relational 
ESaracters '>', '<', and '=' are not underlined in this text. 

The first operand of a conditional expression is called the subject 
of the condition; the second operand is called the object of the 
condition. The relation condition must contain at least one reference 
to a variable. 

The relational operator specifies the type of comparison to be made 
in a relation condition. A space must precede and follow each reserved 
word comprising the relational operator. When used, 'NOT' and the 
next key word or relation character form one relational operator de- 
fining the comparison to be executed for truth value; e.g., 'NOT EQUAL' 
is a truth test for an 'unequal' comparison; 'NOT GREATER' is a truth 
test for an 'equal' or 'less' cornparison. 

The relational condition may take two forms ; numeric conparisons and 
non-numeric comparisons. 

A. Numeric Comparisons 

For numeric operands, a comparison is made with respect to 
their algebraic value. The length of the literal or arith- 
metic expression operands, in terms of number of digits re- 
presented, is not significant. Zero is considered a unique 
value regardless of the sign. 
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Comparison of these operands 'is permitted irrespective 
o£ the manner in which their usage is described. Unsigned 
numeric operands are considered positive for purposes of 
comparison. 

The data operands are compared after alignment of their 
decimal positions. 

An index-name or index item may appear in a numeric 
comparison. 

B. Non-Numeric Comparisons 

For non-numeric Comparisons, non-equi- length comparisons are 
permitted, with spaces being assumed to extend the length of 
the shorter item, if necessary. Relationships are defined 
in the ASCII code; in particular, the letters A-Z are in an 
ascending sequence, and digits are less than letters. Refer 
to Appendix F for all ASCII character representations and 
the Prime collating sequence. 

The data class (see Data Representation) of the two operands, 
where one is a literal, must be the same. For exairple, a 
numeric operand may not be con^ared to a non-nimieric literal. 

EXAMPLE: 

01 TEST-FIELD PIC 9 



MOVE 1 TO TEST-FIELD 



IF TEST-FIELD = '1' 



The coding above will fail. The data class of the literal 
should be set 1:5) as numeric. Thus, 



IF TEST-FIELD = 1 
will execute properly. 
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Class Condition 



The class condition determines whether the operand is numeric or 
alphabetic. If numeric, it consists entirely o£ the characters 
'0', '1', '2', ..., '9', with or without the operational sign. I£ 
alphabetic, it consists entirely o£ the characters 'A', 'B', 'C , 
. . . , ' Z ' and space . The general format for the class conditions is 
as follows: 



data-na„« IS [NOTJ f SJlIc] 



The NUMERIC test is valid only for a group, decimal, or character 
item. The ALPPIABETIC test is valid only for a group or character 
item. 

The class condition is equivalent to comparing the data contained 
in data-name to zero in order to determine the truth or falsity of 
the stated condition. 

3. Condition -name Condition 

In a condition-name condition, a conditional variable is tested to 
determine whether or not its value is equal to one of the values 
associated with a condition-name. The general format for the 
condition -name condition is as follows, where condition-name is 
defined by a level 88 Data Division entry: 

IF condition-name statement (s) . 

If the condition-name is associated with a range or ranges of values, 
then the conditional variable is tested to determine whether or not 
its value falls in this range, including the end values. 

The rules for comparing a conditional variable with a condition-name 
value are the same as those specified for relation conditions. 

The result of the test is true if one of the values corresponding to 
the condition-name equals the value of its associated conditional 
variable. Condition-names are allowed in the File Section and 
Linkage Section where VALUE clauses are not. 

4. Sign-Condition 

The sign condition determines whether or not the algebraic value of 
an arithmetic expression is less than, greater than, or equal to 
zero. The general format for a sign condition is as follows: 

"positive" ! 

data-name IS [NOT] { NEGATIVE ' 

ZERO 
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• Conpound Conditions 

A compound condition is a concatenation o£ siii5)le conditions, 
combined conditions and/or complex conditions with logical con- 
nectors (logical operators 'AND' and 'OR') or negating these 
conditions with logical negation (the logical operator 'NOT'). 
The truth o£ a complex condition is that truth value which results 
from the interaction of all the stated logical operators on the 
individual truth values of simple conditions, or the intermediate 
truth values of conditions logically connected or logically negated. 
Five levels of parenthesis are permitted in con5)oijnd conditions. 

A compound condition has the format: 

condition- 1 ^ [NOT] condition- 2 

The logical operators and their meanings are: 

Logical Operator Meaning 

AND Logical conjunction; the truth value is 'true' if 
both of the conjoined conditions are true; 'false' 
if one or both of the conjoined conditions is false. 

OR Logical inclusive OR; the truth value is 'true' if 
one or both of the included conditions is true; 
'false' if both included conditions are false. 

The reserved words AND or OR permit the specification of a series 
of relational tests, as follows: 

Individual relations connected by AND specify a compound 
condition which is met (true) only if all the individual 
relationships are met. 

Individual relations connected by OR specify a confound 
condition which is met (true) if any of the individual 
relationships are met. 

The compound condition below contains both AND and OR connectors. 

IF X = Y AND FLAG = 'Z' OR SWITCH = GO TO PROCESSING. 

Execution will be as follows, depending on various data values: 
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Data 


Value 




EXECUTES 


X 


Y 


FLAG 


SWITCH 


PROCESSING? 


1^ 


10 


'Z' 


1 


YES 


10 


11 


'Z" 


1 


NO 


1J3 


11 


'Z' 





YES 


10 


10 


.p. 


1 


NO 


6 


3 


rp. 





YES 


6 


6 


.p. 


1 


NO 



1 . Evaluation 

A. Evaluation of individual siirple conditions is done first. 

B. AND-connected simple conditions are next evaluated as a 
single result. 

C. OR and its adjacent conditions (or previously evaluated 
results) are then evaluated. 

EXAMPLES: 

(1) A < B OR C D OR E NOT > F 

The evaluation is equivalent to (A<B) OR (C=D) OR (E<F) and is 
true if any of the three individual parenthesized simple condi- 
tions is true. 

(2) WEEKLY AND HOURS NOT = 

The evaluation is equivalent, after expanding level 88 condi- 
tion-name WEEKLY, to 

(PAY-CODE = 'W'} AND (HOURS = 0) 

and is true only if both the sin5)le conditions are true. 

(3) A=lANDB=ZANDG>-3 
OR P NOT EQUAL TO "SPAIN" 

is evaluated as 

[(A = 1) AND (B = 2) AND (G >-3)] 
OR (P = "SPAIN") 
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I£ P = "SPAIN", the coirpotmd condition can only be true i£ all 
three o£ the following are true: 

A = 1 
B = 2 
G > -3 

However, if P is not equal to "SPAIN", the conpound condition is 
true regardless of the values of A, B and G. 

Other Considerations 

A. Multiple Condition 

IVhiltiple Condition refers to compound conditions grouped in 
parenthesis. IVhere more than 5 levels of parenthesis are 
required, implicit grouping, condition-names, nested IF 
statements, or some combination should be substituted. 
For example, in the statement 

IF A=B AND (C=D or E=F) 

implicit grouping may be achieved by coding 

IF A=B AND C=D OR A=B AND E=F. 

B. Negating Conjunction 

The use of NOT as a negating conjunction is not permitted 
in this compiler at this time. That is, IF A=B AND NOT 
C=D, is invalid. The reader should substitute suggested 
solutions for multiple conditions outlined above. 

The use of NOT as a relation is permitted. Therefore, it 
is correct to code IF A=B AND C NOT=D, but incorrect to 
code IF A=B AND NOT C=D. 

C. Inplied Subjects (Abbreviated Combined Relation Conditions) 

EXAMPLES: 

IF A=B or C OR D (IMPLIED SUBJECT) 

IF A=B OR A=C OR A=D (EXPLICIT SURJECT) 

Implied subjects or relations will be available at Revision 
14.1. At this time, the statement IF A=B OR C, is invalid. 
It is suggested that the user enploy condition-names, nested 
IF's, or full coding as alternatives. 
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Subscripting 



Subscripts can be used only when reference is made to an individual ele- 
ment within a list or table of like elements which have not been assigned 
individual data-names (see the OCCURS clause, DATA DIVISION). 

The subscript can be represented either by a numeric literal which is an 
integer, or by a data-name. The data-name must be a numeric elementary 
item representing an integer. When the subscript is represented by a 
data -name, data -name may be qualified but not subscripted. 

The subscript may be signed and, if signed, it must be positive. The 
lowest possible subscript value is 1. This value points to the first ele- 
ment of the table. The next sequential elements of the table are pointed 
to by subscripts whose values are 2, 3, ... . The highest permissible 
subscript value, in any particular case, is the maximum number of occur- 
rences of the item as specified in the OCCURS clause. 

The subscript which identifies the table element is delimited by the 
balanced pair of separators, left parenthesis and right parenthesis, 
following the table element data-name. IVhen more than one subscript 
is required, they are written in the order of successively less in- 
clusive dimensions of the data organization. 

The format is: 

(condi?^n-name} Csubscript-1 [ subscript-2 [. subscript-3]] ) 

Indexing 

References can be made to individual elements within a table of like ele- 
ments by specifying indexing for that reference. An index is assigned to 
that level of the table by using the INDEXED BY phrase in the definition 
of a table. A name given in the INDEXED BY phrase is known as an index- 
name and is used to refer to the assigned index. The value of an index 
corresponds to the occurrence number of an element in the associated 
table. An index-name must be initialized before it is used as a table 
reference. An index -name can be given an initial value by either a SET, 
or a Format 4 PERFORM statement. 



Direct and Relative Indexing 

Direct and Relative indexing are supported by Prime COBOL as follows: 
Direct indexing is specified by using an index-name in the form of a sub- 
script. Relative indexing is specified when the index-name is followed 
by the operator + or -, followed by an unsigned integer numeric literal 
all delimited by the balanced pair of separators left parenthesis and 
right parenthesis following the table element data-name. The occurrence 
number resulting from relative indexing is determined by incrementing 
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or decrementing by the value o£ the literal, the occurrence number re- 
presented by the value o£ the index. When more than one index-name is 
required, they are written in the order of successively less inclusive 
dimensions of the data organization. 

When a statement is executed which refers to an indexed table element, 
the value in the associated index must neither be less than zero, nor 
greater than the highest occurrence number of an element in the table. 
This restriction also applies to the values resultant from relative 
indexing . 

Restrictions on Qualification, Subscripting and Indexing Are : 

• A data-name must not itself be subscripted nor indexed when that data- 
name is being used as an index, subscript or qualifier. 

• Indexing is not permitted where subscripting is not permitted. 

• An index may be modified only by the SET, SEARCH, and PERFORM state- 
ments. Data items described by the USAGE IS INDEX claiise permit 
storage of the values associated with index-names . Such data items 
are called index data items. 

The general format for indexing is: 



fdata-name 

I condition-name 



} 



findex-name-l 
^ \_^literal-l 



[ {±} literal-2 ] 



} 



Tindex-name-Z 
\literal-3 



[ {±} literal -4 ] 



) 



..) 



findex-name-3 
literal -5 



[ {±} literal-6 ] 






} 
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Sections 13, 14, 15, and 16, which follow, concern thanselves with 
the four divisions of a COBOL program: The Identification Division, 
The Environment Division, The Data Division, The Procedure Division, 
respectively. 

At the completion of each section, source coding for the corresponding 
division of a sample program, REF2, is presented as an example. At 
the close of Section 16, PROCEDURE DIVISION, the reader will find a 
print-out of the 64Vjnode Listing File for the entire REF2 program. 
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SECTION li, 
IDENTIFICATION DIVISION 

IDENTTIFICATION DIVISION 
FUNCTION: 

The Identification Division must be included in every COBOL source program 
as the first entry. This division identifies the source program and the 
resultant output listings. Additional user information, such as the date 
the program was written or the program author, may be included under the 
appropriate paragraph(s) in the general format shown below. 

FORMAT: 

IDENTIFICATION DIVISION . 

PROGRAM- ID . program-name, (no special characters in name) 

[ AUTHOR , conments.] 

[ INSTALLATION , conments . ] 

[ DATE -WRITTEN , conments . ] 

[ DATE-C(11PILED . comments.] 

[ SECURITY , conments . ] 

[ REMARKS , comments.] 
SYNTAX RULES: 

1. The Identification Division must begin with IDENTIFICATION 
DIVISION followed by a period and a space. 

2. The PROGRAM- ID paragraph is required and must follow immed- 
iately after the division header. 

3. Program-name follows the general rules for WORD FORMATION. 
It may be any alphanumeric string, but the first must be alpha- 
betic. Special characters, including the hyphen, are prohibited. 
(Only the first six characters of program-name are retained by 
the compiler.) 

4. All remaining paragraphs are optional. When included, these 
must be presented in the order shown above. 
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GENERAL RULES: 



1. Fixed paragraph names identify the type o£ information contained 
in the paragraph. 

2. The comments entry can be any combination of characters. Use of 
the hyphen in the continuation indicator area is not permitted; 
however, the comments entry can appear on one or more lines. 
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ENVIRONMENT DIVISION 



ENVIRONMENT DIVISION 

FUNCTION: 

The Environment Division defines those aspects o£ a data processing 
problem which are dependent upon hardware configurations and con- 
siderations. 



FORMAT: 



[ ENVIRONMENTT DIVISION . 
[ CONFIGURATION SECTION . 
[ SOURCE-CCMPUTER . computer-name, ] 
[ OBJECT- CCMPUTER . computer-name.] 
[ SPECIAL-NAMES . [ CONSOLE IS mnemonic-name] 

[ , CURRENCY SIGN IS literal] 

[. DECIMAL-POINT IS CCMMA] 

[, ASCII IS NATIVE] ]. ] 
[ INPUT-OUTPUT SECTION . 
FILE-CONTROL . 

{SELECT filename ASSIGN TO device 



[ ; RESERVE integer 



TareaI 

[_AREASJ 



SEQUENTIAL 
[ ;ORGANIZATION IS < INDEXED 



] 



[ ;ACCESS MODE IS 



RELATIVE 

) ] 



fSEQUENTIAL' 
i RANDOM 



DYNAMIC 



[FILE STATUS IS data-name-1] }... 
[ I-O-OONTROL . 

SAME AREA FOR filename- 1 , filename- 2 , . . . ] ] 
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SYNTAX RULES; 

1. The Enyironnjent Division must begin with the header ENVIRONMENT 
DIVISION, followed by a period and a space. 

2. Mandatory sequence of required and optional paragraphs is shown 
in the above format. 

NOTE : In the rare instance when hardware -dependant configurations 
and considerations do not apply, the entire ENVIRONMENT DIVISION may 
be omitted. 

GENERAL RULES: 

1. Each section within the Environment Division begins with its 
section-name, followed by the word SECTION, and each paragraph within 
each section begins with its paragraph-name. 

2. The sections and paragraphs in the Environment Division are dis- 
cussed separately under their appropriate headings on the following 
pages . 



REV. 14 



PDR3056 ENVIRONMEOT DIVISION 



[ CQNFIGimTION SECTION .. 

This section is optional. It is required only if one or more of the following 
three paragraphs is used, 

1. I SOURCE -COMPUTBR . computer-name.] 

Canputer-name serves only as a comments entry. It is used to identify 
the computer for viiiich the COBOL program is written. 

2. [ OBJECT-CCMPUTER . computer-name.] 

Computer -name serves only as a comments entry. It is used to identify 
the computer on which the COBOL program will be executed, 

3. [ SPECIAL-NAMES . 

This paragraph is optional. It is required only if one or more of the 
following four statements is used. 

A. [ CONSOLE IS mnemonic-name] 

Mnemonic-name is a prograiraner- defined word which will be 
associated with CONSOLE throughout the program. 

EXAMPLE: 



ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SPECIAL-NAMES. CONSOLE IS TTY. 



PROCEDURE DIVISION. 



DISPLAY YEAR OF HIRE-DATE UPON TTY. 

The coding above would cause the field, YEAR OF HIRE-DATE, to be 
output on the CONSOLE. 

M)TE : CONSOLE IS is an optional statement. If emitted, the 
computer will automatically associate CONSOLE (terminal) with 
ACCEPT and DISPLAY. 
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B. I CL3RRENCY SIGN IS literal] 

Literal represents the currency sign to be used in the PICTURE 
clause. It is a single character, non-numeric literal which will 
be used to replace the dollar sign as the currency sign. The 
designated character may not be a quote mark, or any o£ the char- 
acters defined for PICTURE representations. 

C. [ DECIMAL-POINT IS COMMA] 

The "European" convention of separating integer and fraction posi- 
tions of nunbers by the ccanma character, rather than the decimal 
point or period, is specified by anployment of the DECIMAL -POINT 
IS CCMMA clause. 

NOTE ; The Reserved Word IS, is required in entries for currency 
sign definition and decimal -point convention specification. 

D. [ ASCII IS NATIVEl ].] 

The entry, ASCII IS NATIVE, specifies that the data representation 
adheres to the American Standard Code for Information Interchange 
as shown in Appendix F. This convention is assumed even if the 
entry is not present. 
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[ INPUT-OUTPUT SECTION . 

The INPUT-OUTPUT SECTIOsI is used when there are external data files. It 
allows specification of peripheral devices and information needed to 
transmit and handle data between the devices and the program. The section 
has two paragraphs: FILE-CDNTROL and I-0-CONTRDL. 

FILE- CONTROL 

This entry names each file and specifies its device medium, allowing 
specific hardware assignments. It can also specify other file-related 
information, such as nxmber of input-output areas allocated, file 
organization, and method of file access. The foimat chosen is dependent 
tpon file organization. Each file requires one SELECT statement and the 
appropriate sequence of optional clauses. 

FORMAT 1: 

SELECT file-name 



ASSIGN TO device 
[; RESERVE integer- 1 






AREA -, 
AREASj ^ 



[ ; ORGANIZATION IS SEQUENTIAL] 
[ ; ACCESS MODE IS SEQUENTIAL] 
[ ; FILE STATUS IS data-name] . 



FORMAT 2; 



SELECT file-name 



ASSIGN TO device 



[; RESERVE integer- 1 



AREA 
AREAS 



; ORGANIZATION IS RELATIVE 



; ACCESS NDDE IS 



SEQUENTIAL [, RELATIVE KEY IS data-name-1] 



fRANDOM ^ 
) ^DYNAMICJ 



, RELATIVE KEY IS data-name-1 



[; FILE STATUS IS data-name-2] 
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FORMAT 3: 



SELECT file -name 



ASSIGN TO device 



[; RESERVE integer-1 ^g ] 
; ORGANIZATION IS INDEXED 



; ACCESS MODE IS 



^SEQUENTIAL^ 



RANDOM 



DYNAMIC 



; RECORD KEY IS data-name -1 
[; ALTERNATE RECORD KEY IS data -name- 2 [WITH DUPLICATES]] . . . 
[; FILE STATUS IS data-name-3] 

A. SELECT filename ASSIGN TO device . . . 

Filename is a programmer-defined name described in the DATA 
DIVISION. Each DATA DIVISION FD entry must be specified 
once in a SELECT statement and only as a filename. The 
ASSIGN to devices clause associates the file with a storage 
medium or input/output hardware. Allowable devices appear 
in Table 14-1. 



Device 


Logical Device 
Maximum No. 
of Unit 


Hardware Device 


TERMINAL 

READER 

PRINi'ER 

PUNCH 

Mr7 
Mr9 

PFMS* 
OFFLINE -PRINT 


_ 

0-7 
0-7 


CRT TERMINAL 

■I'TY TERMINAL 

CARD READER (for. future designation) 

SYSTEM PRINTER 

CARD PUNCH (for future designation) 

7 TRACK MAG. TAPE DRIVE (MT? is currently 

interpreted as MTQ 
9 TRACK MAG. TAPE DRIVE 
DISK STORAGE 
FORMS PRINTER OUTPUT 


*PFMS = PRIME FILE MANAGEMENT SYSTEM 



Table 14-1. Device Specifications 
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EXAMPLES: SELECT filename ASSIGN TO TERMINAL. 
SELECT filename ASSIGN TO PFMS. 
SELECT FILENAME ASSIGN TO MTQ. 

B. [ RESERVE integer ^^ ] 

rhe RESERVE clause allows the user to specify the number of input - 
output buffer areas to be allocated. For tape applications only, 
the integer value can be from 1 to 7, peimitting 14) to 7 buffers 
in manory at one time. 

If tape is not involved, the integer must be specified as one. 
Should the RESERVE clause be omitted, the default of one buffer 
area will be assigned by the compiler. 

SEQUENTIAL 

C. [ ORGANIZATION IS { RELATIVE } ] 

INDEXED 

The ORGANIZATION clause specifies the type of file organization. 
When omitted, the default is sequential. 



D. [ACCESS MODE IS < 



SEQUENTIAL 

RANDOM 

DYNAMIC 



The sequence in which records are accessed is described through 
the use of the ACCESS MODE clause. When omitted, the default is 
sequential . 

E. [FILE STATUS IS data-name ]. 

The FILE STATUS clause permits the user to specify a two character, 
unsigned field (data-name) described in the Working Storage Section. 

When the FILE STATUS clause is specified in the FILE-CONTROL para- 
graph, a value is moved by the operating system into data-name. This 
occurs after the execution of every statement which references that 
file either explicitly or implicitly. Specifically, the FILE STATUS 
data item is updated during the execution of the OPEN, CLOSE, READ, 
WRITE, REWRITE, DELETE or START statement. This value in data-name 
indicates to the COBOL program the status of execution of the state- 
ment. 
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The leftmost character of the FILE STATUS data item is known as 
status key 1; the rightmost character is status key 2. Status 
key 1 is set to indicate a specific condition upon completion of 
the input-output operation; status key 2 further describes the 
results of the operation. 

Status Key 1 settings: 

'0' indicates Successful* Completidii . 

'1' indicates At End 

'3' indicates Permanent Error 

'9' indicates Implenentor Defined 

NOTE : A setting of 9 indicates that the input-output statanent 
was unsuccessfully executed as a result of a condition which is 
specified by the implementor. This value is used only to indicate 
a condition not otherwise specified by the values of status key 1, 
or by valid canbinations of the values of status key 1 and status 
key 2. When status key 1 contains a value of '9', indicating an 
implanentor-defined condition, the value of status key 2 is defined 
by Prime, 

Valid combinations of key values for each type of file organization 
are shown in Appendix D, File Status Key Definitions. 

[ I-0-CONTROL . 

The I -0- CONTROL paragraph is optional unless SAME AREA is used. 

SAME AREA FOR filename- 2. filename-3. . , .] 

The SAME AREA clause allows the programmer to share the same I-O buffer 
areas for files which are not open concurrently. No file may be listed 
in more than one SAME AREA clause. 
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SECTION 15 
DATA DIVISION 



DATA DIVISION 

FUNCTION: 

The Data Division o£ the COBOL source program defines the nature and 
characteristics o£ the data to be processed by the program. Data to 
be processed falls into three categories: 

1. That which is contained in files and enters or leaves the 
internal memory of the conputer from a specified area or areas. 

2. That which is developed internally and placed into inter- 
mediate or working storage. 

3. Constants which are defined by the user. 

The Data Division consists of three optional sections. If used, they 
must appear in the following order: 

1. FILE SECTION. Files and records in files are described. 

2. WORKING-STORAGE SECTION. Memory space is allocated for the 
storage of intermediate processing results. 

3. LINKAGE SECTION. Data available to a called program is described. 
FORMAT: 

DATA DIVISION . 

[ FILE SECTION . 

[file description entry 
record description entry. ..]...] 



[ WORKING-STORAGE SECTION . 

level 77 data description entry 
[data item description entry I 

[ LINKAGE SECTION . 

level 77 data description entry! 
[data item description entry I ' " * J 
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SYNTAX RULES: 



1. The Data Division must begin with the header DATA DIVISION, fol- 
lowed by a period and a space. 

2. When included, optional sections o£ the Data Division must be 
in the same order as shown above. 



GENERAL RULES: 

1. Each section within the Data Division begins with its section- 
name, followed by a period and a space. 

2. Sections and statements in the Data Division are discussed on 
the following pages in the same order in which they occur in the 
division. File and Record Description entries are presented in the 
File Section; the same Record Description entry format is also applied 
to the Working -Storage and Linkage Sections. 
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FILE SECTION 

FUNCTION: 

The File Section of the Data Division defines the structure of data 
files. Each file is defined by a File Description entry, and by one 
or more Record Description entries. 

FORMAT: 

FILE SECTION. 



1 [file -description-entry [record-description-entry] .. 



SYNTAX RULES: 



1. The File Section is optional. If used, it must begin with the 
words FILE SECTION, followed by a period and a space. 

2. The section consists of the header, followed by one or more 
File Description entries (TB) . Each FD must be followed by Record 
Description entries for all records within the file described by 
the FD entry. 



GENERAL RULE: 

Each file associated with an input-output device must be represented 
by a File Description entry (see FILE-CONTROL.) 
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FILE DESCRIPTION 

FUNCTION: 

The file description provides information concerning the physical struc- 
ture, identification, and record names pertaining to a given file. 

FORMAT: 

FD file-name [ UNCOMPRESSED ] 



]J\BEL 



/"record IS "\ /"standardI 

\^RECORDS AREJ ^ OMITTED J 



TcHARACTERS "1 
[ BLOCK CONTAINS integer -1 < ^^Qj^g > ] 

[ RECORD CONTAINS integer- 2 [TO integer- 3] CHARACTERS] 

[V ALUE OF FILE- ID IS literal -1] 

[ OWNER IS literal- 2] 
[ LIFE-CYCLE IS integer- 4] 

Trfcord IS "\ 
[^^'^^ \ RECORDS ARE] data-name-l [data-name-2] ...] 

[C ODE-SET IS ASCII] . 



SYNTAX RULES: 

1. The level indicator FD identifies the beginning of a File Des- 
cription and must precede the file-name. 

2. File-name follows the general rules for WORD FORMATION. 

3. The UNCOMPRESSED option is used only with READ files. It allows 
a PRWFIL READ, rather than an RDASC READ. 

4. The FD entry is a sequence of clauses which must be terminated 
by a period. 

5. The LABEL RECORD clause is required; other clauses which follow 
file -name are optional. 
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6. I£ the DATA RECORD clause is used, one or more Record Description 
entries must follow the File Description entry. 

7. These rules apply to the overall File Section. Clauses in the 
File Description are presented on the following pages in the same 
order as they appear above. 

8. The LIFE -CYCLE IS clause is not implemented at this revision. 
However, this clai:ise is acceptable to the compiler. 
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UNCOMPRESSED 

FUNCTION: 

The UNCOMPRESSED clause enables a disk READ based on record length, 
rather than on compression control characters. 

FORMAT: 

FD file -name [ UNCOMPRESSED ] 

GENERAL RULES: 

1. The UNCOMPRESSED clause is optional. When used, it enables a 
READ based on record length (PRWFIL) , rather than compression 
control characters (RDASC) . 

2. The UNCCMPRESSED option miost be used when reading sequential I-O 
files containing packed or binary data. 



REV. 15 



PDR3056 



DATA DIVISION 



LABEL RECORDS 

FUNCTION: 

The LABEL RECORDS clause specifies whether labels are present for the 
file. 



FORMAT: 



LABEL 



fRECORD IS "1 / standard! 
I^RECORDS are/ \ OMITTED J 



SYNTAX RULE: 

This clause is required in every File Description entry. 

GENERAL RULES: 

1. OMITTED specifies that no explicit labels exist for the file or 
device to which the file is assigned. 

2. STANDARD specifies that a label exists for the file, and that 
the label conforms to system specifications. The STANDARD option 
must be specified for all files assigned to DISK (PFMS) or tape. 
See Table 15-1 below. 



DEVICE 


STANDARD 


OMITTED 


TERMINAL 




X 


READER 




X 


PRINTER 




X 


PUNCH 




X 


Miy (TAPE) 


X 




MTQ (TAPE) 


X 




PFMS (DISK) 


X 





Table 15-1. Label Options 
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BLOCK CONTAINS 

FUNCTION: 

The BLOCK CONTAINS clause specifies the size of a physical record. 

FORMAT: 

RFCORDS I 
[ BLOCK CONTAINS integer- 1 S CHARACTE RS [ ^ 

SYNTAX RULES: 

1. The BLOCK CONTAINS clause is optional. 

2. The clause can only be used in connection with tape files. 

GENERAL RULES: 

1. The clause may be omitted if the physical record contains one, and 
only one, complete logical record. 

2. emission of this clause assumes records are unblocked. 

3. When the RECORDS option is used, the compiler assumes that the block 
size provides for integer- 1 records of maKimum size and then provides 
additional space for any required control words. 

4. When the word CHARACTERS is specified, the physical record size is 
specified in terms of the number of character positions required to store 
the physical record, regardless of the types of characters used to re- 
present the items within the physical record. 

5. When neither the CHARACTERS nor the RECORDS option is specified, the 
CHARACTERS option is assuned. 
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RECORD CONTAINS 

FUNCTION: 

The RECORD CONTAINS claiise specifies the size o£ data records. 

FORMAT: 

[ RECORD CONTAINS integer- 2 [TO integer- 3] CHARACTERS] 

GENERAL RULES: 

1. Since the size o£ each data record is defined fully by the set 
of data description entries constituting the record (level 01) 
declaration, this clause is always optional. 

2. Integer-2 may not be used by itself unless all the data records 
in the file have the same size. In this case, integer-2 represents 
the exact number of characters in the data record. If integer-2 
and integer- 3 are both shown, they refer to the minimum number of 
characters in the smallest size data record, and the maximum number 
of characters in the largest size data record, respectively. 
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VALUE OF FILE ID 

FUNCTION: 

The VALUE OF clause particularizes the description o£ an itan in the label 
records associated with a file; thus allowing for the linkage of internal 
and external program names. 

FORMAT: 

[ VALUE OF FILE- ID is literal- 1] 

SYNTAX RULE: 

This clause is mandatory if labels are standard. 

GENERAL RULES: 

1. Literal -1 is the name which is used by Prime at run- time to dynami- 
cally allocate files. It is a non-numeric value which may not exceed 

8 characters. 

2. If further definition does not occur at run -time, literal -1 will 
become the default value for internal filename designation. 
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OWNER IS 

FUNCTION: 

The OIVNER IS clause points to the User File Directory (UFD) in a Prime 
system, in which literal -1 o£ VALUE OF FILE -ID is contained. 



FORMAT: 

[ OWNER IS literal- 2] 

SYOTAX RULE: 

The OWNER IS clause may be used only with disk files. 

GENERAL RULES: 

1. Literal -2 is a non-numeric value which may not exceed 6 
characters . 

2 . The clause is essentially ignored in this compiler in 64R mode ; 
and it may be overridden in both 64R and 64V mode by explicit de- 
finition at run- time. 

3. If the clause is omitted, a default of the current UFD will 
apply. 
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LIFE-CYCLE 

FUNCTION: 

LIHB-CYCLE allows for the development o£ an expiration date as "today 
plus integer" for output files. 

FORMAT: 

[ LIFE -CYCLE IS integer-4] 

SYNTAX RULE: 

Integer-4 can contain a value of to 32,767 inclusive. 

GENERAL RULE: 

If LIFE-CYCLE is omitted, integer-4 is assumed to be zero. 
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DATA RECORDS 
FUNCTION: 

The DATA RECORDS clause serves only as documentation for the names o£ 
data records and their associated file. 

FORMAT: 

[ DATA < RECORDS ARE f data-name-1 [, data -name -2] ,..] 

SYNTAX RULE: 

Data-name-1 and data-name -2 are the names of data records. They 
must be defined by 01 level -number Record Description entries and 
follow the general rules for WORD FORMATION. 

GENERAL RULES: 

1. If the file contains more than one type of data record, each 
type should be indicated by a data-name in this clause. These 
records may be different in format. The order in which they are 
listed is not significant. 

2. Conceptually, all data records within a file share the same area, 
regardless of the nijmber of types of data records within the file. 
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CODE -SET 

FUNCTION: 

The CODE-SET clause specifies the character code set used to represent 
data on the external media. 

FORMAT: 

[ CODE-SET IS ASCII] . 

GENERAL RULE: 

The CODE -SET clause serves only as documentation in this compiler, 
reflecting the fact that both internal and external data is re- 
presented in ASCII code. 
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RECORD DESCRIPTION 
FUNCTION: 

A Record Description entry describes all elementary and group items 
in a record, and their relationship. It is comprised o£ a set of 
Data Description entries , each o£ which defines the particular char- 
acteristics of a unit of data, utilizing a series of claioses to detail 
such characteristics. 

FORMAT 1: 



. T , data-name- 1 
level-number J ^j^^r 

[OCCURS-Clause] 



[REDEFINES data-name-2] 



[ / PICTURE ^ jg picture- string] 



DISPLAY 
COMPUTATIONAL 



[ USAGE IS i ^x 



C(MPUTATI0InIAL-3 



> ] 



[SIGN IS 



LEADING 
TRAILING 



•\ 



I SYNCHRONIZED 



I SYNC 



X 



[ SEPARATE CHARACTER] ] 



LEFI I I -I 



[ 



I JUSTIFIED 
fJUST 



' RIGHT] 



[ BLANK WHEN ZERO] 
[ VALUE IS literal] 
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FORMAT 2: 



00 ^ J-*- /Value is "1 ,. , , TthroughI 

88 condition-name; [y^s ASEJ literal-1 | ^„ \ 



literal-2, 



fTHROUGpA 
\ THRU J 



[literal-3 a^:^ literal-4] . . . 



FORMAT 3: 



88 condition-name: JYMM IS I iiteral-1. [literal -nl 
— l yALUES ARE/ ■^■^'-^^'^-^ -^' LJ-J-Leidi nj . . . 

SYNTAX RULES: 

1. The level -number in Fonnat 1 may contain a value of 01 through 
30, or 77. 

2. In Format 1, clauses can be written in any order with two ex- 
ceptions: The data-name-1 or FILLER clause must immediately fol- 
low the level -number; and the REDEFINES clause, when used, must 
immediately follow .the data-name-1 clause. 

3. In Format 1, PICTURE clause must be specified for every ele- 
mentary item except when USAGE is described as binary (COMPUTATIONAL) 
A group item cannot contain a PICTURE clause. 

4. The OCCURS clause cannot be specified in a Data Description 
entry which has an 01, 77, or 88 level-number. 

5. Formats 2 and 3 are used only for condition-names which must 
have a level -number 88. Formats 2 and 3 may not be combined for a 
single, level 88 entry. 

6. The words THRU and THROUGH are equivalent and interchangeable 
Reserved Words. 



GENERAL RULES: 

1. A detailed discussion of each clause in the Data Description 
entry appears under the appropriate clause heading on the following 
pages . 

2. A Record Description entry can appear in the File, Working- 
Storage, or Linkage Section of the Data Division. All records in 
each file referenced by a File Description entry (FD) must be 
described by Record Description entries. 
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LEVEL -NUMBER 

FUNCTION: 

The level -number shows the position o£ a data-item within the hierarchy 
o£ data in a logical record. It also identifies entries for condition- 
names, and data items in the Working -Storage and Linlcage Sections. 

FORMAT: 

level -number 



SYNTAX RULES: 

1. A level -number is required as the first element in each Data 
Description entry (see Record Description) . 

2. Data Description entries subordinate to an FD entry must have 
level -numbers 01 through 30, or 88. 

3. Data Description entries in the Working -Storage and Linkage 
Sections must have level-numbers 01 through 30, 77, or 88. 



GENERAL RULES: 

1. Level -numbers are used to subdivide a record so that each item 
in the record may be referred to. A record can be divided, and each 
subdivision further divided, until a basic level is reached which 
cannot be further divided. An item at this basic level is called an 
elementary item. A record can itself be an elementary item. 

2. A group consists of one or more consecutive elementary items; 
groups can, in turn, be combined into other groups of two or more 
group items. A group consists of a specified group item and all fol- 
lowing group and elementary items with level -numbers greater than 
that of the specified group itan, and continuing until the next itam 
with a level-number less than or equal to that of the specified groiqj 
item is reached. 

3. Level-numbers range from 01, the most inclusive level, to 30, 
the least inclusive level. Any level -number except 30 can denote 
a group. 

4. The level number 01 identifies the first entry in each Data 
Description. Reference to level -number 01 data-name in the Pro- 
cedure Division causes the entire record to be accessible. 

5. Multiple level 01 entries subordinate to one FD level indi- 
cator represent implicit redefinitions of the same area. 



15 - 17 November 1977 



SECTION 15 PDR3056 



6. Special level -nxjiribers have been assigned to certain entries 
where there is no real concept of hierarchy: 

A. Level -nimber 77 is assigned to identify noncontiguous 
working storage or linkage data items. They may be used 
only as described in Format 1 of the Data Description 
entry. 

Level -number 77 data items are independent elementary 
items which cannot be subdivided. 

B. Level -number 88 is assigned to entries which define condi- 
tion-names associated with a conditional variable. They 
can be used only with Format 2 of the Data Description 
entry. 

Level 88 entries can contain individual values, series of 
individual values, or a range of values. Such entries 
cannot combine ranges and individual values. 



EXAMPLE: 

01 Test-Area PIC X 

88 Test-Value-1 Value '1' 

88 Test-Value-2 Value '1', '2' 

88 Test -Value -3 Value '1' thru '8' 

88 Test -Value- 4 Value '1' thru '4', 



In the example above, the last 88 level definition is 
invalid. 

A level 88 entry must be preceded by one of the following: 

1. Another level 88 entry, where there are several con- 
secutive condition-names pertaining to an elementary item; 

2. An elementary item. 

Every condition-name pertains to an elementary item in such 
a way that the condition-name may be qualified by the name 
of the elementary item and the elementary item's qualifiers. 
A condition-name is used in the Procedure Division in place 
of a simple relational condition. 

A condition-name may not pertain to an elementary item (a 
conditional variable) requiring subscripts. In this case, 
the condition -name, when written in the Procedure Division, 
cannot be subscripted according to the same requirements 
as the associated elementary item. 
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The type o£ literal in a condition-name entry must be 
consistent with the data type o£ the conditional variable. 
In the following example, PAYROLL -PERIOD is the conditional 
variable. The picture associated with it limits the value 
of the 88 condition -name to one digit. 

02 PAYROLL-PERIOD PICTURE IS 9, 
88 WEEKLY VALUE IS 1. 
88 SEMI-MONTHLY VALUE IS 2. 
88 MONTHLY VALUE IS 3. 

Using the above description, one may write the procedural 
condition-name test: 

IF MDNTHLY GO TO DO-MONTHLY 

An equivalent statement is: 

IF PAYROLL-PERIOD = 3 GO TO DO-MONTHLY. 

For an edited elementary item, values in a condition -name 
entry must be expressed in the form of non -numeric literals. 
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DATA-NAME/FILLER 
FUNCTION: 

A data-name specifies the name of the data being described, FILLER spec- 
ifies an elementary item of the logical record which cannot be referred 
to explicitly. 

FORMAT: 

(data-name"^ 
FILLER J 

SYNTAX RULE: 

In the File, Working -Storage, and Linkage Sections of the Data 
Division, a data-name or the keyword FILLER must be the first word 
following the level -number in each Data Description entry. 



GENERAL RULES: 

1. FILLER can be used to name an elementary item in a record. 
Under no circumstances can a FILLER item be referred to explicitly. 
However, FILLER can be used as a conditional variable because such 
use does not require explicit reference to the FILLER item, but 
rather to its value. 

2. A VALUE clause can be used with a FILLER item. 
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REDEFINES 

FUNCTION: 

The REDEFINES clause allows the same computer storage area to be des- 
cribed by different Data Description entries. 

FORMAT: 

level-number { FILLER™^"''" } ; [ REDEFINES data-name-2] 

NOTE : Level -nijmber, data-name -1 and the semicolon are not part of 
the REDEFINES clause, but are included to show the context. 



SYNTAX RULES: 

1. The REDEFINES clause is optional; when specified, it must im- 
mediately follow data-name- 1. 

2. Level -numbers of data-name-1 and data-name-2 must be identical, 
but must not be 77 or 88. 

3. This clause must not be used in level-number 01 entries in the 
File Section. 

4. The Data Description entry for data-name-1 must not contain a 
REDEFINES clause. 

5. The Record Description entry for data-name-2 may not contain 
an OCCURS clause, nor may data-name-1 be subordinate to an entry 
which contains an OCCURS clause. 

6. Data-name-2 can be qualified, but not subscripted. 



GENERAL RULES: 

1. Redefinition starts at data-name-2 and ends when a level -number 
less than or equal to that of data-name-2 is encountered. In the 
following example, redefinition of the data-name-2 area by data- 
name-1 ends when data-name-3 is encountered: 

02 data-name-2 PICTURE A(3) . 

02 data-name-1; REDEFINES data-name-2. 

03 ITEM-A PICTURE A. 

03 ITEM-B PICTURE AA. 
02 data-name-3 PICTURE X. 
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2. The entries giving the new description of the area must not 
contain VALUE clauses except in condition-name entries. 

NOTE : The REDEFINES clause specifies the redefinition of a storage 
area, not of the data items therein contained. 

Redefinition to a depth greater than one level is not permitted (see 
SYNTAX RULE 4, above). Thus, the nested REDEFINES outlined below is 
invalid: 

02 A PIC X(10) . 
02 B REDEFINES A. 

03 C PIC XC5). 

03 D REDEFINES C. 
04 E PIC XC5). 

03 F PIC XC5). 



Identical results may be achieved with the following definition: 

02 A PIC XCIO). 
02 B REDEFINES A. 

03 C PIC XC5). 

03 F PIC X(5). 
02 FILLER-1 REDEFINES A. 

03 D. 

04 E PIC XC5). 

03 FILLER PIC X(5). 

Notice that the clauses B REDEFINES A, and FILLER-1 REDEFINES A 
are at the same level. Such definition is valid. 
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OCCURS 

FUNCTION: 

The OCCURS clause permits the definition of related sets of repeated 
data, such as tables, arrays, lists, supplying required information for 
the application of subscripts or indexes. 

FORMAT: 

OCCURS integer -1 TIMES [ INDEXED BY index-name-1 [, index-name-2] ...] 

SYNTAX RULES: 

1. The OCCURS clause must not be used in any Data Description entry 
having a level number 01, 77, or 88. 

2. The maximum OCCURS specification (integer-1) is 1024. 

3. When the OCCURS clause is used without the INDEXED BY option, 
the data-name which is the subject of the OCCURS clause is referred 
to by subscripting (see General Rule 4 below) . If this data-name 
is the name of a group item, all data-names belonging to the group 
must be subscripted whenever used. 

4. An INDEXED BY phrase is required if the subject of this entry, 
or an entry subordinate to this entry, is to be referred to by 
indexing. Neither index-name-1 nor index-name-2 are defined else- 
where, since their allocation and format are dependent on the system; 
not representing data, the index-names cannot be associated with 

any data hierarchy (see General Rule 5 below) . 

GENERAL RULES: 

1. The OCCURS clause defines tables and other homogenous sets of re- 
peated data items. Whenever the clause is used, the data-name that 
is its subject must be either subscripted or indexed whenever it is 
referenced. 

2. Except for the OCCURS clause, all data description clauses asso- 
ciated with an item whose description includes an OCCURS clause 
apply to each occurrence of the item described. 

3. Integer-1 represents the exact number of occurrences of the 
subject entry. 

4. When the INDEXED BY option is omitted, subscripting is used to 
indicate an individual item within a list, or within a table of 

like items which do not have individual data-names. 
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The format for a subscript is: 

data-name (subscript-1, [subscript-2 [, subscript-3]]) 

The subscript can. be represented either by a positive numeric 
literal or by a data-name. The data-name must be a numeric ele- 
mentary item which represents an integer. The data-name may be 
qualified but not subscripted. The subscript must be delimited 
by a pair of parentheses following the table element data-name. 
\4ien two or more subscripts are required, they are written in 
the order of successively less inclusive dimensions of the data 
organization, and should be separated by commas. A maximum of 
three levels of subscripting is permitted for any given data item. 

The value of the subscript indicates the position of the item in 
a table. The lowest possible value of a subscript is 1, indi- 
cating the first position in the table. Subsequent positions are 
indicated by sequential values 2 , 3 , 4 . . . , up to the highest 
permissible value, which is the maximum number of occurrences of 
the item specified in the OCCURS clause. 

A data-name may not be subscripted if it is being used for any 
of the following functions: 

A. When it is being used as a subscript. 

B. When it appears as the defining name of a Data Description 
entry. 

C. When it appears as data-name -2 in a REDEFINES clause. 

A subscript value is changed via the NDVE, ADD, or SUBTRACT verbs. 
The SET verb cannot be used on a subscript data-name. (See TABLE 
HANDLING.) 

5. IVhen INDEXED BY is used, an index is assigned to a table of 
like elements, with individual items in the table being identified 
by index-name. 
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The general format for indexing is; 



(data-name I , / index -name-1 [ {±} literal-2] ^ 
condition-namej ^ \literal-l / 



, Andex-name-Z [ {±} literal-4] 1 
\literal-3 J 



(index -name -3 [ {±} literal~6] "^ 
literal -5 J 



...) 



An index-name is declared not by the usual method of level number, 
name, and Data Description clauses, but implicitly by appearance 
in the "INDEXED BY index-name" appendage to an OCCURS clause. Index- 
name is equivalent to an index- item. The compiler assigns a full 
word for each index -name defined. 

An index-name must be uniquely named. An index item may only be re- 
ferred to by a SET statement, a CALL statement's USING list, a Pro- 
cedure header USING list, as the variation item in PERFORM VARYING 
and PERFORM UNITE, or in a relational condition. In all cases, the 
process is equivalent to dealing with a binary word integer subscript. 
(See TABLE-HANDLING.) 

Direct indexing is specified by using an index-name in the form of a 
subscript. Relative indexing is specified by a parenthetic statement 
following data-name, in which index-name is followed by the operator 
+ or - and an unsigned integer numeric literal. 

When a statement referring to an indexed table element is being exe- 
cuted, the value in the index referred to by the index-name must be 
from 1 to the highest permissible occurrence number specified in the 
OCCURS clause. This restriction applies also to the value resulting 
from relative indexing. See TABLE HANDLING for more detailed discus- 
sion. 
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PICTURE 

FUNCTION: 

The PICTURE clause describes the general characteristics and editing 
requirements of an elementary item. 

FORMAT: 

[ A^^^u^ \ IS picture-string ] 



/picture^ 

\m J 



SYNTAX RULES: 

1. A picture clause can be specified only at the elementary item 
level . 

2. A picture-string consists of certain allowable combinations of 
characters in the COBOL character set used as symbols. The allow- 
able combinations determine the category of the elementary item. 

3. The maximum number of character positions allowed in the 
picture-string is 30. As an example, PICTURE X(89) consists of 
five PICTURE characters. 

4. The PICTURE clause must be specified for every elementary item 
except binary items. 

5. PIC is a valid abbreviation for PICTURE. 

6. The asterisk when used as the zero suppression symbol and the 
clause BLANK WHEN ZERO may not appear in the same entry. 



GENERAL RULES: 

1. Data. Five categories of data can be described with a PICTURE 
clause: Alphabetic, numeric, alphanumeric, alphanumeric edited, 
and numeric edited. 

A. Alphabetic: 

• Picture-string can only contain the characters A and B; 
and 

• Item contents must be any combination of the letters 
of the English alphabet and the COBOL space character. 

B . Numeric : 

• Picture -string can only contain the symbols 9, P, S, 
and V. The number of digit positions which may be re- 
presented by picture -string is from 1 to 18; 

and 
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• Item contents must be a combination of the digits 
through 9. These may be signed, or not. If signed, 
the item may be positive or negative. 

C . Alphanumeric : 

• Picture -string is a combination of data description 
characters X, A, or 9, and the item is treated as if 
the string contained all X's. Alphanumeric picture- 
strings may not employ all 9's or all A's; 

and 

• Item contents may be any character from the computer's 
ASCII character set. 

D. Alphaniimeric edited: 

• Picture-string is restricted to certain combinations of 
the following symbols: A, X, 9, B, 0, /; 

and 

• Item contents are any character from the computer's 
ASCII character set. 

E. Numeric Edited: 

• The picture -string is a certain combination of the edit- 
ing symbols: Z.CRDB,$ + *B0=-/9VP; 

and 

• The picture-string must contain at least one of the 
editing symbols in conjunction with numeric symbols; 
and 

• Item contents must be one of the digits. 

2. Size. The size of an elementary item (the number of character 
positions occupied by the item in standard data format) is deter- 
mined by the number of allowable symbols which represent character 
positions. 

An integer, enclosed in parentheses, following the symbols A , X 
9PZ*B/0+-or the currency symbol, indicates the number of 
consecutive occurrences of that symbol. The following symbols can 
appear only once in a given PICTURE: S V . CR DB. 

3. Decimal-Point Clause. \Vhen DECIMAL-POINT IS COMMA is specified, 
the explanations for period and comma are understood to apply to 
comma and periods, respectively. 
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4. Symbols. Symbols used in a picture -string to define an ele- 
mentary item have the following functions (see also Appendix F, 
SYMBOLS) . 

A - Each A represents a character position which contains only 
a letter of the alphabet, or a space. 

B - Each B represents a character position into which the space 
character will be inserted. 

P - Each P indicates an assumed decimal scaling position. It 
specifies the location of an assumed decimal point when the 
point is not within the number that appears in the data 
item. The P is not counted in the size of the data item, 
but is counted in determining the maximum number of digit 
positions (18) in numeric edited items or numeric items. 

The scaling position character P may appear only to the left 
or right of the other characters in the string as a con- 
tinuous string of P's within a PICTURE description. The 
sign character S and the assumed decimal point V are the 
only characters which may appear to the left of a leftmost 
string of P's, Since the scaling position character P 
implies an assumed decimal point (to the left of the P's 
if the P's are leftmost PICTURE characters, and to the right 
of the P's if the P's are rightmost PICTURE characters), 
the assumed decimal point symbol V is redundant as either 
the leftmost or rightmost character within such a PICTURE 
description. 

If a field in memory contains the digits 37, and the 
picture -string for the field is PPP99, the field has the 
implied value of .00037. The same field, with a picture- 
string 99000 has an implied value of 37000. In both 
instances, only digits 37 are actually stored in memory. 

S - The picture -string symbol S indicates the presence of a sign 
in a data item, but implies nothing about the actual format 
or location of the sign in storage. 

The symbol S is not counted in determining the size of the 
elementary item, unless the entry is subject to a SIGN 
clause. (See SIGN.) 

When used, the S symbol must be written as the leftmost 
character in picture-string. 

V - The character V indicates the position of an assumed decimal 
point. Since a numeric item cannot contain an actual decimal 
point, an assumed decimal point is used to provide informa- 
tion concerning the alignment of items involved in computa- 
tions. Storage is never reserved for the character V. Only 
one V, if any, is permitted in any single picture. 
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X - Each X represents a character position which contains any 
allowable character from the computer's character set. 

Z - Each character Z is a replacement character which represents 
a digit position. Leading data item zeros are suppressed 
and replaced by blanks if corresponding picture-string posi- 
tions are defined by Z. Zero suppression terminates upon 
encountering the decimal point (.), or a non-zero digit. 

Each Z is counted in the size of the item. 

9 - Each 9 in a picture -string represents a character position 
which contains a numeral and is counted in the size of the 
item. 

- Each in the character-string represents a character posi- 
tion into which the numeral zero will be inserted. The '0' 
is counted in the size of the item. 

/ - Each stroke, or virgule (/) , in the picture- string represents 
a character position into which the stroke character will be 
inserted. / is counted in the size of the item. 

, - The comma character (,) specifies insertion of a comma 

between digits. Each insertion character is coimted in the 
size of the data item, but does not represent a digit posi- 
tion. The comma may also appear in conjunction with a 
floating string. 

. - A period character (.) in a picture -string is an editing 

symbol representing the decimal point for alignment purposes. 
The character also serves to indicate the position for 
decimal point insertion. 

Numeric character positions to the right of an actual 
decimal point in a PICTURE must consist of characters of one 
type. 

The period character (.) is counted in the size of the item. 

For a given program, the functions of the period and comma 
are exchanged if the clause DECIMAL-POINT IS COmk is stated 
in the SPECIAL -NAMES paragraph. In this exchange, the rules 
for the period apply to the comma and the rules for the 
comma apply to the period wherever they appear in a PICTURE 
clause . 

The decimal insertion character (.) must not be the last 
character in the picture -string. 

These symbols are used as editing sign control symbols and 
represent the character position into which the editing sign 
control symbol is placed. The symbols are mutually exclu- 
sive in any one picture -string, and each character used in 
the symbol is counted in determining the size of the data 
item, i.e., CR and DB = 2 character positions each; + and 
- = 1 character position each. 
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* - Each * 
acter. 
by *. 

5 . Editing . 



(asterisk) in a picture -string is a replacement char- 
Leading data item zeros are suppressed and replaced 
Each * is counted in the size o£ the item. 



A. The PICTURE clause provides two basic methods for editing: 
Character insertion and character suppress ion/ replacement. 
The type of editing which may be performed upon an item is 
dependent upon the category to which the item belongs. The 
table below specifies which type of editing may be performed 
upon a given category: 



CATEGORY OF DATA 


TYPE OF EDITING 


Alphabetic 


Simple insertion 'B' only 


Numeric 


None 


Alphantmeric 


None 


Alphanumeric Edited 


Simple insertion 0, B and / 


Numeric Edited 


All, subject to rules in Rule 3 below 



Table 15-2. Categories of Data and Editing 



B. Insertion Editing includes the following types: 

Simple insertion 
Special insertion 
Fixed insertion 
Floating insertion 

1) Simple insertion editing utilizes B , / as insertion 
characters. The insertion characters are counted in 
the size of the item and represent the position in the 
item into which the character will be inserted. 

2) Special insertion editing refers to decimal point inser- 
tion (.) and resulting receiving item alignment. The 
insertion character used for the actual decimal point is 
counted in the size of the item. The use of the assumed 
decimal point - represented by the symbol V, and the use 
of an actiial decimal point - represented by the inser- 
tion character, is disallowed in the same picture -string; 
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the two are mutually exclusive. The result o£ special 
insertion editing is that the insertion character is 
placed in an item in the same position in which it 
appears in the picture -string. 

3) Fixed insertion editing employs the currency sign and 
editing sign control symbols as insertion characters. 
The editing sign control symbols are: + - CR DB. 

Only one currency symbol, and only one o£ the editing 
sign control symbols, can be used in a given picture - 
string. When the symbols CR or DB are used, they re- 
present two character positions in determining the size 
o£ the item. They must represent the rightmost char- 
acter positions to be coimted in the size o£ the item. 
The symbol + or -, when used, must be either the le£t- 
most or rightmost character position to be counted in 
the size o£ the item. The currency symbol must be the 
le£tmost character position to be counted in the size of 
the item, except that it can be preceded by either a + 
or a - symbol. Fixed insertion editing results in the 
insertion character occupying the same character posi- 
tion in the edited item as it occupied in the picture - 
string. Editing sign control symbols produce the 
following results depending upon the value of the data 
item: 





RESULT 


EDITING SYMBOL IN 
PICTURE -STRING 


DATA ITEM 
POSITIVE OR ZERO 


DATA ITEM 
NEGATIVE 








+ 


+ 


- 


- 


space 


- 


CR 


2 spaces 


CR 


DB 


2 spaces 


DB 



Table 15-3. Results of Sign Control Symbols in Editing 



4) Floating insertion editing utilizes the currency symbol 
and editing sign control symbols + or - as floating 
insertion characters. These are mutually exclusive in 
a given picture -string. 
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A floating picture-string is defined as a leading, con- 
tinuous series of either $ + or -, or a string composed 
of one such character interrupted by one or more inser- 
tion caranas and/ or decimal point. 

For example: 



++++ 



Floating insertion editing is indicated in a picture- 
string by using a string of at least two of the float- 
ing insertion characters. The leftmost character of 
the floating insertion string represents the leftmost 
limit of the floating symbol in the data item. TJie 
rightmost character of the floating string represents 
the rightmost limit of the floating symbols in the data 
item. 

The second floating character from the left represents 
the leftmost limit of the numeric data which can be 
stored in the data item. Non-zero numeric data may 
replace all the characters at or to the right of this 
limit. 

In a picture -string, there are only two ways of repre- 
senting floating insertion editing. One way is to re- 
present any or all of the leading numeric character 
positions on the left of the decimal point by the 
insertion character. The other way is to represent all 
of the numeric character positions in the picture- string 
by the insertion character. 

If the insertion characters are only to the left of the 
decimal point in the picture -string, the result is that 
a single floating insertion character will be placed 
into the character position immediately preceding the 
first non-zero digit in the data item. If all data 
item digits to the left of the decimal are zero, the 
floating insertion character will be placed into the 
character position immediately preceding the decfimal 
point. The character positions preceding the insertion 
character are replaced with spaces. 

If all numeric character positions in the picture-string 
are represented by the insertion character, the result 
depends upon the value of the data. If the value is 
zero, the entire data item will contain spaces. 

If the value is not zero, the result is the same as 
when the insertion character is only to the left of the 
decimal point. 
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To avoid titoication, the minimum size of the picture- 
string for the receiving data item must be the number 
of characters in the sending data item, plus the niMber 
of non- floating insertion characters being edited into 
the receiving data item, plus one for the floating 
insertion character. That is, a floating string con- 
taining n + 1 occurrences of $ or + or - defines n digit 
positions . 

In the following examples, y> represents a blank in the 
developed items. 

EXAMPLES: 

Picture -string Numeric Value Developed Item 

$$$999 14 >5t5$014 

-,999 -456 MWM-^^^ 

14 J5J5$14 



A floating string need not constitute the entire 
PICTURE of a report item, as shown in the preceding 
eixamples. However, the characters to the right of a 
decimal point and up to the end of a PICTURE, excluding 
the fixed insertion characters +, -, CR, DB (if present), 
are subject to the following restrictions: 

Only one type of digit position character may 
appear. That is, Z * 9 and floating- string digit 
position characters $ + - are mutually exclusive. 

If any of the numeric character positions to the 
right of a decimal point is represented by + or - 
or $ or Z, then all the numeric character positions 
in the PICTURE must be represented by the same 
character. 

The PICTURE character 9 can never appear to the left 
of a floating string, or replacaaient character. In 
fact, nothing can precede a floating string. 

When a comma appears to the right of a floating 
string, the string character floats through the 
comma in order to be as close to the leading digit 
as possible. 

Suppression/ replacement editing includes two types: Zero 
suppression and replacement with spaces, and zero suppres- 
sion and replacement with asterisks. 

Floating insertion editing and editing by zero suppression/ 
replacement are mutually exclusive in a PICTURE clause. 
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The suppression of leading zeros in numeric character posi- 
tions is indicated by the use of the alphabetic character 
Z, or the character * (asterisk) as suppression symbols in 
a picture-string. These symbols are mutually exclusive in 
a given picture- string. Each suppression symbol is counted 
in determining the size of the item. If Z is used, the 
replacement character will be the space. If the asterisk 
is used, the replacement character will be *. 

Zero suppression and replacement are indicated in a picture- 
string by one or more of the allowable symbols (Z or ^) , 
representing leading numeric character positions. These, 
in turn, are to be replaced when the associated character 
position in the data contains a zero. Any simple insertion 
character embedded in the string of symbols, or to the 
immediate right of this string, is part of the string. 

The two ways of representing zero suppression in a character- 
string are: 

Represent any or all leading numeric character positions 
to the left of the decimal point by suppression symbols; 

Represent all numeric character positions in the picture- 
string by suppression symbols. 

If the suppression symbols appear only to the left of the 
decimal point, any leading zero in the data which corresponds 
to a symbol in the string is replaced by the replacement 
character. Suppression terminates either at the first non- 
zero digit in the data represented by the suppression symbol 
string, or at the decimal point, whichever is first. 

If all numeric character positions in the picture-string are 
represented by suppression symbols, and the value of the 
data is not zero, the result is the same as if the suppres- 
sion characters were only to the left of the decimal point. 
If the value is zero, the entire data item will be spaces if 
the symbol is Z, or all asterisks (except for the actual 
decimal point) if the symbol is *. 

D. A picture-string must consist of at least one of the char- 
acters Z A * X 9 , or at least two consecutive appearances 
of the characters + - $. 

The examples below illustrate the use of the PICTURE clause. 
In each example, a movement of data is implied, as indicated 
by the column headings. 
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Source Area 


Receiving Area 


PICTURE 


Data 
Value 


PICTURE 


Edited Data 






9(5) 12345 
9(5) 00123 
9(5) 00000 
9(4)V9 12345 
V9(5) 12345 
S9(5) 00123 
59(5) -00001 
S9(5) 00123 
S9(5) 00001 
9(5) 00123 
9(5) 00123 
89(5) 12345 
S999V99 02345 
S999V99 00004 
89(5) -12345 


$$$,$$9.99 $12,345.00 
$$$,$$9.99 $123,00 
$$$,$$9.99 $0.00 
$$$,$$9.99 $1,234.50 
$$$,$$9.99 $0.12 

.99 123.00 

.99 -1.00 

+++++++.99 +123.00 

.99 1,00 

+++++++.99 +123.00 

.99 123,00 

*******. 99CR **12345.00 
ZZZVZZ 2345 
ZZZVZZ 04 
*******. 99CR **12345.00CR 



Figure 15-1. Examples o£ PICTURE Clauses 
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USAGE 

FUNCTION: 

The USAGE clause describes the form in which numeric data is represented. 

FORMAT: 

c 

DISPLAY 
CCMPUTATIONAL 

mip 

[USAGE IS ^^ 

COMPUTATIONAL- 5 
CCM'-S 



\ ] 



SYNTAX RULES: 

1. CCMP is a valid abbreviation for CCMPUTATIONAL. 

2. CCMP- 3 is a valid abbreviation for CCMPUTATIONAL -3. 

3. The PICTURE clause cannot be used if USAGE is specified as 
CCMPUTATIONAL or INDEX. 

GENERAL RULES: 

1. The USAGE clause can be written at any level. If the USAGE clause 
is written at a group level, it applies to each elementary item in the 
group. The USAGE clause of an elementary item cannot contradict the 
USAGE clause of a group item to which it belongs. 

2. A CCMPUTATIONAL item can represent a value to be used in computations 
and must be numeric. When a group item is described as COMPUTATIONAL, 
only the elementary items in that group are CCMPUTATIONAL; the group 
item itself cannot be used in computations. 

3. DISPLAY is the system default if the USAGE clause is not specified. 

4. If USAGE is specified as CCMPUTATIONAL for an item, and a PICTURE 
clause is included for the same item, the computer will ignore the USAGE 
clause . 

NOTE : See Data Representation for additional information. 
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SIGN 

FUNCTION: 

The SIGN clause specifies the position and the mode o£ representation of 
the operational sign when it is necessary to describe these properties 
explicitly. 



FORMAT: 

[ SIGN IS i T^^j^g > [ SEPARATE CHARACTER]] 

SYNTAX RULES: 

1. The SIGN clause may be specified only for a numeric Data Description 
entry whose PICTURE contains the character S, or for a group item contain- 
ing at least one such numeric Data Description entry. If an S is not 
present in the data item picture- string, the item is considered unsigned 
(capable of storing only absolute values) , and the SIGN clause is prohib- 
ited. 

2. Numeric Data Description entries to which the SIGN clause applies 
must be described by USAGE IS DISPLAY. 

3. Only one SIGN clause can apply to any given numeric Data Description 
entry. 

GENERAL RULES: 

1. When S appears in a picture-string, but no SIGN clause is included 
in an item's description, the system default is SIGN IS TRAILING. 

2. If the optional SEPARATE CHARACTER phrase is not present, then: 

A. The operational sign is presumed associated with the leading 
(or, respectively, trailing) digit position of the elementary 
numeric data item. 

B. The character S in picture- string is not counted in determining 
item size. 

3. If the SEPARATE CHARACTER phrase is present, then: 

A. The operational sign will be presumed the leading (or, respect- 
ively, trailing) character position of the elementary numeric 
data itan; this character position is not a digit position. 

B. The letter S in a picture- string is counted in determining the 
size of the item (in terms of standard data format characters) . 

C. The operational signs for positive and negative are the standard 
data format characters + and - , respectively. 
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4. Every numeric Data Description entry whose PICTURE contains the 
character S is a signed nimeric Data Description entry. If a SIGN 
clause applies to such an entry and conversion is necessary for 
purposes of computation or comparisons, conversion takes place auto- 
matically. 

5. Table 15-4 depicts sign representations for the various SIGN 
clause options. 



SIGN Clause 


Sign Representation 


TRAILING 
LEADING 

TRAILING SEPARATE 
LEADING SEPARATE 


Embedded in rightmost byte 
Embedded in leftmost byte 
Stored in separate rightmost byte 
Stored in separate leftmost byte 



Table 15-4. Sign Representation 



6. At a group level, an attribute of SEPARATE will cause a group type 
error at compile -time. Such attributes must be specified at the ele- 
mentary level. 
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SYNCHRONIZED 
FUNCTION: 



The SYNCHRONIZED clause specifies the alignment of an elementary item on 
its natural addressing boundaries in the ccmputer memory. 



FOMAT; 



r J SYNCHRONIZED I H 



LEFT 
RIGHT 



SYNTAX RULES: 

1. SYNC is a valid abbreviation for SYNCHRONIZED. 

2. In this compiler, the SYNCHRONIZED specification is treated as 
commentary. 
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JUSTIFIED 

FUNCTION: 

The JUSTIFIED clause specifies nonstandard positioning o£ data within a 
receiving data item. 

FOFMAT: 



JUSTIFIED 
JUST 



RIGHT 



SYNTAX RULES: 

1. This clause can be specified only at the elonentary level. 

2. JUST is a valid abbreviation of JUSTIFIED. 

3. The JUSTIFIED clause cannot be used for data itans described as 
numeric, or for those for which editing is specified. 

GENERAL RULES: 

1. When the JUSTIFIED clause option is taken, values are stored in 
right-to-left fashion. The clause is effective in connection with a 
MOVE statement. In a MOVE operation, if the sending field is shorter 
than the receiving field, space filling occurs in the left -most posi- 
tions. If the sending field is longer than the receiving field, the 
left -most characters are truncated. 

2. When the JUSTIFIED clause is omitted, Standard Alignment Rules 
apply. 
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BLANK WHEN ZERO 

FUNCTION: 

The BLANK WHEN ZERO clause permits the blaiiking o£ an itan when its value 
is zero. 



FORMAT: 

BLANK WHEN ZERO 
SYNTAX RULE: 



] 



The BLANK WHEN ZERO clause can be used only for an elanentary numeric 
or numeric edited (report) item. 

GENERAL RULES: 

1. When used, the BLANK WHEN ZERO clause specifies that the data item 
will be set to blanks when the value is all zeros . Leading zeros are 
not suppressed by this clause. 

2. If the clause is specified for a numeric item, the category of the 
iton is interpreted as numeric edited. 

3. The BLANK WHEN ZERO clause may be used in conjunction with editing 
characters. In such instances, editing occurs according to PICTURE 
specifications if data item values are not zero. For example, if a 
data item value is 0000.04, and the editing PICTURE is ****.99 BLANK 
WHEN ZERO, the result will be ****.04. Since leading zeros are not 
affected by the BLANK WHEN ZERO clause, the asterisk editing char- 
acters take precedence, and leading zeros are replaced by the character *. 
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EXAMPLES: Oi=hlar)k) 



VALUE 


DESCRIPTION OF 
OUT- COST 




RESULT 


0012.34 


9999.99 


BLANK WHEN 


ZERO 


0012,34 


0123.45 


$9999.99 


BLANK WHEN 


ZERO 


$0123.45 


01.2345 


$9999.99 


BLANK WHEN 


ZERO 


$0001,23 


0000.00 


**** 99 






****_oo 


0000.00 


****_9g 


BLANK WHEN 


ZERO 


Yi]/^y>W!^¥ 


0012.34 


**** 99 


BLANK WHEN 


ZERO 


**12 . 34 


0000.04 


$$$$$.99 


BLANK WHEN 


ZERO 


$.04 


0000.00 


$$$$$.99 


BLANK WHEN 


ZERO 


ppppppp 


0000.00 


ZZZZVZZ 


BLANK WHEN 


ZERO 


WYmw 


0000.04 


ZZZZVZZ 


BLANK WHEN 


ZERO 


4 


0000.00 


ZZZZ.ZZ 


BLANK WHEN 


ZERO 


]smw¥ 


0000.04 


ZZZZ.ZZ 


BLANK WHEN 


ZERO 


,04 



Figure 15-2. Examples: BLANK WHEN ZERO 
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VALUE 

FUNCTION: 

The VALUE clause defines the value o£ constants, the initial values of 
WORKING STORAGE items, and the values associated with a condition-name. 



FORMAT 1: 



t 



VALUE IS literal 



FORMAT 2; 



VALUE IS 



] 



literal-1 [literal-2 ...] 
literal- if THRU "\literal-2 



■If" THRU "1l 
1 THROUGH J 



.1 



J 



SYNTAX RULES: 

1. The words THROUGH and THRU are equivalent. 

2. The VALUE clause is not peimitted in a Data Description entry speci- 
fying an OCCURS or REDEFINES clause, or in any entry subordinate to one 
specifying an OCCURS or REDEFINES clause. 

3. Numeric literals in a VALUE clause must have a value which is within 
the range of values indicated by the PICTURE clause, and must not have a 
value which would require truncation of nonzero digits. Non-numeric 
literals in a VALUE clause must not exceed the size indicated by the 
PICTURE clause. 

4. The type of literal written in a VALUE clause depends on the t)T?e of 
data item, as specified in the data item formats earlier in this text. 
For edited items, values must be specified as non-numeric literals. A 
type conflict, producing a compile time error, will arise if a figurative 
constant or literal is not compatible with the PICTURE. For example, 
PICTURE X VALUE ZERO will produce a type conflict error, since ZERO is 

a numeric figurative constant, but PICTURE X specifies an alphanumeric 
itan. 

5. In a data itan with a VALUE clause, the size of the data item cannot 
exceed 128 characters; e.g., PIC X(129) VALUE SPACES is invalid. 

6. A VALUE clause may not occur in the FILE SECTION of the Data Division 
except in level 88 condition- name entries. 
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GENERAL RULES: 



1. The positioning of the literal within a data area is the same as 
would result £rcm specifying a MOVE of the literal to a data area. 

2. The VALUE clause may be specified at the group level in the form 
of a correctly sized, non-nimeric literal, or a figurative constant. 

3. When an initial value is not specified, no assumption should be 
made regarding the initial contents of an itan in Working -Storage, 

4. A figurative constant may be specified in both Format 1 and Foimat 
2 instead of a literal. 

5. Format 1 is required to define an initial value for a data item 
or a constant. 

6. Format 2 is required for condition-name entries. The VALUE clause 
and the level -number 88 condition-name itself are the only two items 
permitted in the entry. The characteristics of a condition-name are 
implicitly those of its conditional variable. Wherever the THRU phrase 
is used, literal-1 must be less than literal-2, literal-3 less than 
literal- 4, etc. 

7. Rules governing the VALUE clause differ in the respective sections 
of the Data Division: 

A. In the File and Linkage Sections, the clause can be used only 
in condition-name entries. 

B. In the Working -^Storage Section, the clause must be used in 
condition-name entries; it can also be used to specify the 
initial value of any other data itan, with the result that 
the item assumes the specified value at the start of the 
object program. 

8. Level 88 condition-name entries specify a value, list of values, or 
a range of values which an elementary item may assume. 

A. A level 88 entry must be preceded either by another level 88 
entry (in the case of several consecutive condition-names per- 
taining to an elementary item) or by an elanentary item. 

B. Every condition-name pertains to an elementary item in such a 
way that the condition-name may be qualified by the name of 
the elanentary item and the elementary item's qtoalifiers. 
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C. A condition -name is used in the Procedure Division in place 
o£ a simple relational condition. 

D. A condition-name may pertain to an elementary item (a condi- 
tional variable) requiring subscripts. In such a case, the 
condition-name, when written in the Procedure Division, must 
be subscripted according to the same requirements as the 
associated elementary item. 

E. 88 Level specifications can contain individual values, series 
o£ individual values, a range of values, or a series of ranges 
of values, but not a combination of ranges and individual 
values. (See also LEVEL -NUMBER.) 

EXAMPLE: 

02 PAYROLL-PERIOD PICTURE IS 9. 

88 WEEKLY VALUE IS 1. 

88 SEMI-MONTHLY VALUE IS 2. 

88 MONTHLY VALUE IS 3. 

Using the above description, one may write the procedural 
condition-name test: 

IF MONTHLY GO TO DO-MONTHLY. 

An equivalent statement is: 

IF PAYROLL- PERIOD = 3 GO TO DO-MONTHLY. 

NOTE: For an edited elementary item, values in a condition-name 
entry must be expressed in the form of non-numeric literals. 
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WORKING -STORAGE SECTION 

FUNCTION: 

The WORKING- STORAGE SECTION of the Data Division describes noncontiguous 
data (level 77), and records which are not part of external files, but 
are developed and processed internally. This section also contains data 
assigned fixed or constant values. 

FORMAT: 

[ WORKING -STORAGE SECTION. 



level 77 data description entry 
data item description entry 



'] 



SYNTAX RULES: 



1. The Working -Storage Section is optional. If included, it must 
begin with the words WORKING -STORAGE SECTION, followed by a period and 
a space. 

2. Noncontiguous item names and record names in the Working -Storage 
Section must be unique; they cannot be qualified. Subordinate data- 
names need not be unique if they can be made unique by qualification. 

3. The level -number 77 is applied to noncontiguous elementary data 
items, each defined in a separate data description entry which must 
contain the level-number 77, a data-name, and a PICTURE clause or 
USAGE IS INDEX clause, with other optional data description clauses 
as necessary. 

4. Data items in the Working -Storage Section with a definite hierarchic 
relationship to one another must be grouped into records according to the 
rules for formation of record descriptions. Any clause used in a record 
description in the File Section can be used in a record description in 
the Working -Storage Section (see Record Description) . 

GENERAL RULES: 

1. Working -Storage items described in this section include the 
following : 

A. Noncontiguous elementary items with the level -number of 77. 
These items and constants have no hierarchical relationship to one 
another and cannot be grouped into records because they cannot be 
further subdivided. 
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B. Data items in records not associated with an input- output device 
and not part of external data files, but developed and processed 
internally. These items employ level numbers 01 through 30. 

2. VALUE clauses, prohibited in the FILE SECTION, are peimitted through- 
out Working -Storage to specify the initial value of an item, except for 
an index data item. 
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LINKAGE SECTION 

FUNCTION: 

The Linkage Section describes data previously defined in a calling program, 
which is available to a called program. 

FORMAT: 

I LINKAGE SECTION . 

level 77 data description entry 
data itofii description entry 

SYNIAX RULES: 

1. The Linkage Section is optional. If included, it must begin with 
the words LINKAGE SECTION followed by a period and a space. 

2. Each Linkage Section record-name and noncontiguous item name must 
be unique within the called program; it cannot be qualified. 

3. Level-number 77 refers to noncontiguous elonentary data itans, with 
no hierarchic relationship to one another, and therefore not grouped 
into records. Each level-number 77 data item is defined in a separate 
data description entry which must include the level -number 77, a data- 
name, and a PICTURE clause or USAGE IS INDEX clause. Other optional 
data description clauses may be included as necessary. 

4. Data items in the Linkage Section, which have a definate hierarchic 
relationship to one another, must be grouped into records according to 
the rules for formation of Record Descriptions. 

5. The VALUE clause must not be specified in the Linkage Section 
except in level 88 condition-name entries. 

GENERAL RULES: 

1, The Linkage Section of the Data Division is meaningful if and 
only if the object program is to function imder the control of a CALL 
statement, and the CALL statement in the calling program contains a 
USING phrase. 

2. The Linkage Section is used to describe data which is available 
through the calling program, but is to be referred to in both the 
calling program and the called program. No space is allocated in the 
program for data items referenced by data-names in the Linkage 
Section of that program. Procedure Division references to these data 
items are resolved at load time by equating the reference in the called 
program to the location used in the calling program. 
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3. Data items defined in the Linkage Section o£ the called pro- 
gram may be referenced vdthin the Procedure Division of the 
called program only if they are specified as operands of the 
USING phrase of the Procedure Division header, or are subordinate 
to such operands, and the object program is under the control of 
a CALL statement which specifies a USING phrase. 

4. A Linkage Section example is presented in Section 17, INTER- 
PROGRAM COMMUNICATION. 
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PROCEDURE DIVISION 

FUNCTION: 

The Procedure Division contains instructions specifying the data pro- 
cessing steps to be performed by the program. COBOL instructions are 
written as sentences which are combined to form paragraphs under para- 
graph names. These, in turn, are combined to fonn sections under 
section names. 

Within CDBOL sentences, verbs (commands), are employed to denote actions. 
Statements and sentences denote procedures. 

FORMAT: 

PROCEDURE DIVISION [ USING data-name- 1 [data-name- 2] . . .] . 
[ DECLARATIVES . 

{section-name SECTION . USE sentence. 

[paragraph-name . [sentence] ... ] ... }... 
END DECLARATIVES .] 

[section-name SECTION .] 

{paragraph- name . [sentence] ... }... 

SYNTAX RULES: 

1. The first entry in the Procedure Division must be the words 
PROCEDURE DECISION. 

2. The USING clause is specified only if: 

A. The program being written is a CALLable subprogram which is 
to function under the control of a CALL statement. 

B. The CALL statement in the calling program contains a USING 
clause^ 

3. Each of the data-name operands in the USING clause must be 
defined as a data item in the Linkage Section of the subprogram. 
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4. Within the subprogram, Linkage Section data items are processed 
according to their data descriptions as given in the subprogram. 

5. Data -name level -numbers in the USING clause must be 01 or 77. 
See Section 18, INTER-PROGRAM C(M4UNICATI0N for complete discussion. 

6. Declarative sections are optional. When included, they must be 
grouped at the beginning of the Procedure Division, preceded by the 
key word declaratives and followed by the key words END DECLARATIVES. 
These entries must appear on separate lines. 

7. A SECTION entry is optional. When included, it must consist of 
section-name, followed by the word SECTION and a period. Each 
section header must appear on a line by itself; each section-name 
must be unique. 

8. A paragraph is a logical entity consisting of one or more 
sentences. A paragraph- name must precede the first sentence. 

9. A sentence is a single statonent or a series of statements 
terminated by a period and followed by a space. 

10. A statement consists of a COBOL verb followed by appropriate 
operands (data-names or literals) and other words necessary for the 
completion of the statement. There are two types of statements, 
the Imperative and Conditional: 

A. Imperative Statements 

An imperative statement specifies an unconditional action 
to be taken by the object program. An iirperative statement 
consists of a verb and its operands, excluding the IF condi- 
tional statement, the READ statement and any I/O statement 
which has an INVALID KEY clause. 

B. Conditional Statements 

A conditional statement stipulates a condition which is 
tested to determine whether an alternate path of program 
flow is to be taken. The IF statement provides this 
capability. READ statements, and any I/O statement having 
an INVALID KEY clause are also considered to be conditional. 
When an arithmetic statement possesses a SIZE ERROR suffix, 
the statement is considered to be conditional rather than 
imperative . 

Arithmetic statements may be imperative or conditional. The five 
arithmetic verbs are: ADD, SUBTRACT, MULTIPLY, DIVIDE, COMPUTE. 
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GENERAL RULES; 



1. The sections under the DECLARATIVES header provide a method for 
including procedures which are invoked when a condition occurs which 
cannot normally be tested by the programmer. Each Declaratives Sec- 
tion coirprises a section header, a USE conpiler-directing sentence, 
and, optionally, one or more paragraphs. 

Although the system automatically handles checking and creation of 
standard labels, and executed error recovery in the case of input/ 
output errors, additional procedures may be specified, here, by 
the COBOL programmer. 

Since such procedures are executed only at the time an error in 
reading and writing occurs, they cannot appear in the regular 
sequence of procedural statements. Instead, they must appear in 
the DECLARATIVES section. Related procedures are preceded by a USE 
sentence . 

Within a USE procedure, there must be no reference to non-declara- 
tive procedures. Conversely, in the non-declarative portion, there 
must be no reference to procedure -names which appear in the declara- 
tive portion, except that PERFORM statements may refer to the pro- 
cedures associated with a USE statement. For additional informa- 
tion, see USE statement. 

2. After END DECLARATIVES is specified, no text can appear before 
the next section header. 

3. The Procedure Division is usually, though not necessarily, 
written in sections, each with a section header followed optionally 
by one or more successive paragraphs. 

4. Section-name and paragraph -name follow the general rules for 
WORD FORMATION. 

5. Arithmetic statements in the Procedure Division are governed 
by the following rules: 

A. All data-names used in arithmetic statements must be ele- 
mentary numeric data items which are defined in the Data 
Division of the program, except when they are the operands 
of GIVING. The data item may be numeric edited. Index- 
names and index items are not permissable in these arith- 
metic statements. 

B. Decimal point alignment is supplied automatically through- 
out the computations. 

C. Intermediate result fields generated for the evaluation of 
arithmetic expressions assure the accuracy of the result 
field, except where high-order truncation is necessary. 
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D. The maximum size of each operand is eighteen (18) decimal 
digits. The composite of operands, which is a hypothe- 
tical data item resulting from the superimposition of 
specified operands in a statement aligned on their decimal 
points, must not contain more than eighteen decimal digits. 

E. When arithmetic is attempted with one or more non-numeric 
operands in VNDDE, the program will execute, but results 
are invalid. In RMODE, the program will terminate with 
an error message "NON-NIMERIC DATA". 

NOTE : With UII (Unimplemented Instruction Package) on Prime 
400 and Prime 500 units, SPACES is interpreted as zeros when 
utilized in arithmetic statements. 

6. The three statement components which may appear in all arith- 
metic statements are: The GIVING option, the ROUNDED option, the 
SIZE ERROR option. 

A. If the GIVING option is written, the value of the data- 
name which follows the word GIVING is made equal to the 
calculated result of the arithmetic operation. The data- 
name which follows GIVING is not used in the computation 
and may be a report item. 

B. When the ROUNDED option is specified, if the most signi- 
ficant digit of the excess is greater than or equal to 5, 
the least significant digit of the resultant data-name 
has its value increased by 1. If the ROUNDED option is 
not taken, truncation will occur after decimal -point 
alignment if the result is greater than the size of the 
receiving data item. 

Rounding of a computed negative result is performed by 
rounding the absolute value of the computed result and then 
making the final result negative. 

The following chart illustrates the relationship between 
a calculated result and the value stored in an item which 
is to receive the calculated result, with and without 
rounding. 
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Calculated 
Result 


Item to Receive Calculated Result 


Pia'URE 


Value After 
Rounding 


Value After 
Truncating 


-12.36 

8.432 

35.6 

65.6 

.0055 


S99V9 

9V9 

99V9 

S99V 

SV999 


-12.4 

8.4 

35.6 

66 

.006 


-12.3 

8.4 

35.6 

65 

.005 



Figure 16-1. Rounding Results 



C. The SIZE ERROR option is written immediately after any 
arithmetic statement, as an extension of the statement. 
The format of the SIZE ERROR option is: 

[ON SIZE ERROR imperative statement . . . ] 

If, after decimal -point alignment and any low-order trunca- 
tion, the value of a calculated result exceeds the largest 
value \\^ich the receiving field is capable of holding, a 
size error condition exists. 

If the SIZE ERROR option is present, and a size error condi- 
tion arises, the value of the resultant data-name is un- 
altered and the series of imperative statements specified 
for the condition is executed. 

If the SIZE ERROR option has not been specified and a size 
error condition arises, no assunption should be made about 
the final result. 

An arithmetic statement, if written with a SIZE ERROR 
option, is not an imperative statement. Rather, it is a 
conditional statement since it is data- dependent and is 
prohibited in contexts where only imperative statements 
are allowed. 

An example of a conditional arithmetic statement is: 

ADD 1 TO RECORD-COUNT, ON SIZE ERROR MOVE ZERO TO 
RECORD-COUNT, DISPLAY "LIMIT 99 EXCEEDED". 

Note that if a size error occurs (in this case, it is ap- 
parent that RECORD-COUNT HAS Picture 99, and cannot hold 
a value of 100) , both the MOVE and DISPLAY statements are 
executed. Otherwise, the ^DVE and DISPLAY statements are 
not executed. 
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PROCEDURE STATEMENTS 

COBOL statements (verbs) are described on the following pages alpha- 
betically as presented in the index below. This index is designed 
as a quick reference to assist the user in locating format descriptions 
and in determining verb category and special applications. 



PRIME COBOL VERBS 





CATEGORY 


Special 




VERB 


(Depending on Format) 


Application 


PAGE 


ACCEPT 


I/O 




16-7 


ADD 


Arithmetic or Conditional 




16-9 


ALTER 


Procedure Branch 




16-11 


CALL 


Procedure Branch 


Interprogram Communication 


16-12 


CLOSE 


I/O 


File Handling 


16-14 


COMPUiE 


Arithmetic or Conditional 




16-16 


COPY 


Compiler Directing 




16-17 


DELETE 


I/O or Conditional 


File Handling 


16-19 


DISPLAY 


I/O 




16-20 


DIVIDE 


Arithmetic or Conditional 




16-21 


ENTER 


Compiler Directing 


Interprogram Communication 


16-23 


EXHIBIT 


I/O 


Debugging 


16-24 


EXIT 


Procedure Branch 




16-25 


EXIT PROGRAM 


Procedure Branch 


Interprogram Communication 


16-26 


GO TO 


Procedure Branch 




16-27 


ipa 


Conditional or Arithmetic 




16-28 


INSPECT 


Data Movement 




16-32 


MOVE 


Data Movement 




16-34 


MULTIPLY 


Arithmetic or Conditional 




16-36 


OPEN 


I/O 


File Handling 


16-37 


PERFORM 


Procedure Branch 




16-39 


READ 


I/O or Conditional 


File Handling 


16-42 


READY TRACE 


TRACE MODE Directing 


Debugging 


16-44 


RESET TRACE 


TRACE MODE Directing 


Debugging 


16-45 


REWRITE 


I/O or Conditional 


File Handling 


16-46 


SEARCH 


Table Handling 




16-48 


SET 


Table Handling 




16-52 


START 


I/O or Conditional 


File Handling 


16-54 


STOP 


I/O or Ending 




16-56 


STRING 


Data Movement 




16-57 


SUBTRACT 


Arithmetic or Conditional 




16-60 


UNSTRING 


Data Movement 




16-62 


USE „ 


I/O Conditional 


File Handling 


16-67 


WRITE 


I/O or Conditional 


File Handling 


16-69 


IF is a verb 


in COBOL, although not a verb in the grammatical sense 


in English. 



Table 16-1. Prime COBOL Verb Index 
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ACCEPT 

FUNCTION: 

The ACCEPT statement causes low-volume data to be made available to the 
specified data itan. 

FORMAT 1: 

ACCEPT data-name [ FRCM mnemonic-name] 

FORMAT 2: 

ACCEPT data-name FRCM f ^^1 

SYNTAX RULE: 

The mnononic-name in Format 1 must be specified also in the SPECIAL- 
NAMES paragraph of the Environment Division, and must be associated 
with the console (terminal) . 

GENERAL RULES: 

1. The ACCEPT statement causes transfer of data fron the hardware 
device. The transferred data replaces the contents of the field spe- 
cified by data-name. 

2. One line is read, and as many characters as necessary (depending 
on the size of the named data field) are moved, without change, to the 
indicated field. The maximum number of characters which can be read 
is 72. 

3. Qnission of FRCM mnanonic-name implies that input is from the 
terminal . 

4. When FRCM mnemonic -name is specified, input is keyed- in at the 
terminal by the operator; mnononic-name must be assigned to CONSOLE 
in the special -names paragraph. 

When input is to be accepted from the terminal, execution consists of 
the following steps: 

A. Execution is suspended. 

B. When the operator enters a response, the program stores the 
acquired data in the field designated by data-name, and noimal 
execution proceeds. 
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C. The data size is controlled by the size specified for data- 
name. 

D. For unequal sizes of data-name and terminal input the result 
is treated as an alphanumeric to alphanumeric move with space 
fill on the right or right truncation. 

5. The Foimat 2 ACCEPT statement causes the requested information to 
be transferred to the data iton specified by data-name according to 
the rules of the MOVE statanent. DATE, DAY, and TIME are conceptual 
data itans and are therefore not described in the COBOL program. 

6. DATE has the following data elements: Year, month, and day of the 
month, in that sequence, from high to low order (left to right). 

July 1, 1974 is expressed as 740701. DATE, when accessed by a COBOL 
program, is treated as though described in the COBOL program as an un- 
signed elonentary numeric integer data item six digits long. 

7. DAY has the following data elements: Year, and day of year, in 
that sequence, from high to low order (left to right). July 1, 1974 
would be expressed as 74183. DAY, when accessed by a COBOL program, 
is treated as though described in a COBOL program as an unsigned ele- 
mentary numeric integer data item five digits long. 

8. TIME has the following data elements: Hours, minutes, seconds, 
and hundreds of a second. TIME is based on time elasped after mid- 
night on a 24-hour basis; thus:2:41 p.m., or 1441 hours, is expressed 
as 14410000. TIME, when accessed by a COBOL program, is treated as 
though described in a COBOL program as an unsigned elementary numeric 
integer data item eight digits long. The minimum value of TIME is 
00000000; maximum value is 23595999. 
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ADD 
FUNCTION: 

The ADD statonent adds together two or more numeric values and stores the 
resulting sum. 



FORMAT 1: 



/data-name-l\ 
i^ \literal-l J 



, data-name- 2 
, literal- 2 



... TO data-name-n [ ROUNDED ] 
[; ON SIZE ERRO R imperative-statement] 



FORMAT 2; 



apjp Idata-name-ll f, data- name- 21 
|literal-l J \_j,literal-2 J 



, data-name -3 
, literal -3 



GIVING data-name-m [ ROUNDED] [ ; ON SIZE ERROR imperative-statement] 

SYNTAX RULES: 

1. In Formats 1 and 2, each data-name must refer to an elementary 
numeric item, except that in Format 2 each item following GIVING can 
be either an elementary numeric item or an elementary numeric edited 
item. 

2. Each literal must be a numeric literal. 

3. The maximum size of each operand is 18 decimal digits. If all 
operands, excluding those following the word GIVING, were to be super- 
imposed upon each other, aligned by their implied decimal points, their 
composite can not exceed 18 decimal digits in length. 

GENERAL RULES: 

1. In Format 1, the values of the operands preceding the word TO are 
added, the sum is added to the current value of data-name-m and the 
resTilt is stored immediately in data-name-m. 

2. In Foimat 2, the values of the operands preceding the word GIVING 
are added, and the sum is stored as the new value of data-name-m fol- 
lowing GIVING. 

3. See the rules for arithmetic statements under Procedure Division, 
General Rules. The ROUNDED and ON SIZE ERROR options may be used when 
truncation of the results could occur. 
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4. The rules for signs are those presented in FUNDAMENTAL CONCEPTS 
OF COBOL, Algebraic Signs. 

EXAMPLES: 

ADD INTEREST, DEPOSIT TO BALANCE ROUNDED 
ADD REGULAR-TIME OVERTIME GIVING GROSS-PAY. 

The first statement would result in the total sum of INTEREST, DEPOSIT, 
and BALANCE being placed at BALANCE, while the second would result in 
the sum of REGULAR-TIME and OVERTIME earnings being placed in item 
GROSS-PAY. 
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ALTER 

FUNCTION: 

The ALTER statement modifies a simple GO TO statement elsewhere in the 
Procedure Division, thus changing the sequence o£ execution o£ program 
statements. 

FORMAT: 

ALTER paragraph-name- 1 TO [ PROCEFJ TO] paragraph-name -2 

SYNTAX RULES: 

1. Paragraph-name- 1 contains a single GO TO sentence without the 
DEPENDING phrase. 

2. Paragraph- name -2 is the name of another paragraph or section in 
the Procedure Division. 

GENERAL RULE: 

Execution of the ALTER statement modifies the GO TO statement in 
paragraph-name- 1 so that subsequent executions of the modified GO TO 
statements cause transfer of control to paragraph-name-2 . 

EXAMPLE: 

GATE. 

GO TO MF-OPEN. 
M-F-OPEN. 

OPEN INPUT MASl'ER-FILE. 

ALTER GATE TO PROCEDE TO NORMAL. 
NORMAL. 

READ MASTER- FILE, AT END GO TO EOF -MASTER. 

Examination of the above code reveals the technique for providing 
for a one-time initializing program step. 

NOTE: ALTER is fully supported in this COBOL. Its use, however, is 
inconsistent with structured programming techniques. The reader 
should be aware that the ALTER statement presents difficulties in 
the debugging process. 
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CALL 

FUNCTION: 

The CALL statement allows one program to ccmmunicate with one or more other 
programs. It causes control to be transferred from one loaded program to 
another within a run unit, with both programs having access to data items 
referred to in the CALL statement. 



FORMAT: 



CALL literal- 1 



USING data-name- 1 [, data-name-2] 



1 



SYNTAX RULES: 



1. The CALL statonent appears in the calling program. The called 
program, which must be Icnown at compile time, is specified by name as 
literal-1. The program represented by literal-1 may have been written 
in a source language other than COBOL. 

2. Literal-1 must be a non-nimeric literal. 

3. The USING phrase is included in the CALL statement only if there is 
a USING phrase in the Procedure Division header of the called program. 
Corresponding USING phrases in the calling and the called programs must 
have the same number of operands. 

4. Each operand in the USING phrase must have been defined as a data 
item in the File Section, Working -Storage Section, or Linkage Section 
and must have a level-number of 01 or 77. Data-name-1, data-name- 

2 , . . . , may be qualified wheri they refer to data itons defined in the 
File Section. 

GENERAL RULES: 

1. The execution of a CALL statement transfers control to the called 
program. 

2. A program is in its initial state the first time it is called within 
a run unit. On all other entries into the called program, the state of 
the program remains the same as when control last past from its EXIT 
statement back to the calling program. This includes all data fields, 
the status and positioning of all files, and all alterable switch 
settings. 

3. Called programs can contain CALL statements. However, a called pro- 
gram must not contain a CALL statement that directly or indirectly calls 
the calling program. 
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4. The data-names specified by the USING phrase o£ the CALL state- 
ment indicate those data items available to a calling program, that 
may be referred to in the called program. The order in which the 
data-names appear in the USING phrases of the two programs is 
critical; the data-names in the USING phrase of the CALL statement in 
the calling program are interpreted as corresponding on a one-to-one 
basis with those in the USING phrase in the Procedure Division header 
of the called program. Corresponding data-names refer to a single set 
of data which is available to the called and calling programs. Cor- 
respondence is positional, not by name. There is no such correspondence 
for index-names, however, since index-names in the calling and called 
programs always refer to separate indexes. 

5. See Section 17, Interprogram Communication for additional infor- 
mation and exairples. 
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CLOSE 



FUNCTION: 

The CLOSE statonent teminates the processing o£ files, reels/units, with 
optional rewind and/or lock or removal where applicable. 



FORMAT 1: 

CLOSE file-name- 1 



jREElfl [with NO rewind" ! 
\UNItJ [for REMOVAL J 



FORMAT 2: 

CLOSE file-name- 1 I WITH LOCK. 
FORMAT 3: 



WITH LOCK . . . 



CLOSE index- file-name 

SYNTAX RULES: 

1. The REEL or UNIT phrase must be xased only for sequential files. 

2. The files referenced in the CLOSE statement need not all have the 
same access or organization. 

3. Except where specifically stated, the terms UNIT and REEL are 
synonomous and interchangeable. 

GENERAL RULES: 

1. Foimat 3 is the only option possible for both Indexed and Relative 
files . 

2. A CLOSE statement must be executed uqjon completion of file processing, 
or before a STOP RUN is executed. 

3. Files are divided into the following categories to show the effect 
of various types of CLOSE statements as applied to various storage media: 

A. Nonreel/unit - A file on an input or output medium (a printer, 
a disk) . 

B. Sequential single-reel/unit - A file vdiolly contained on one 
reel/unit. 
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C. Sequential multireel/unit - A sequential file which is contained 
on more than one reel/unit. 

D. Nonsequential sii^le/multireel/unit - A relative or indexed file, 
residing on a disk device, which may be a single or multiunit 
file. 

4. For this compiler, CLOSE statanent options are treated as comments. 
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COFIPUTE 



FUNCTION: 



The CCMPUTE statement evaluates an arithmetic expression and then stores 
the result in a designated numeric or report itan. 



FORMAT: 

COMPUTE data-name-1 [ ROUNDED] 

SYNTAX RULE: 



r 



data-name -2 | 



numeric- literal > [ SIZE-ERROR - clause] 
^arithmetic- expressionj 



In general, data-names appearing to the left of = must refer to either 
an elementary numeric item or an elementary numeric edited item, 

GENERAL RULE: 

The CCMPUTE statement is governed by the regulations imposed by the 
statement components GIVING, ROUNDED, SIZE ERROR, as outlined in the 
General Rules, PROCEDURE DIVISION. It is also governed by the general 
regulations for Arithmetic Statements and LANGUAGE SPECIFICATIONS. 
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COPY 

FUNCTION: 

The COPY statement provides a means o£ including pre-written COBOL 
source coding in the programs at conpile time. 

FORMAT: 

COPY text -name [ ^ ^Kf ^ library-name] 



m 



SYNTAX RULES: 

1. OF and IN are interchangeable and mutually excliasive. 

2. A COPY statement may occur anywhere in the source program, in 
any Division where a character-string or a separator might usually 
occur, except that it may not occur within another COPY statement. 

GENERAL RULES: 

1. Text -name must be a unique name on the UFD (User's File 
Directory) which contains the COBOL program i£ the library-name 
is not specified. 

2. I£ the text name is not on the same UFD as the program, 
library-name must be specified and must be the UFD name which 
contains the text -name. 

EXAMPLES: 

A. FILE-CONTROL. COPY text-name. 

B. FD MASTER-FILE COPY text -name OF SUB. 

C. 01 MASTER-RECORD. COPY text -name IN SUB. 

D. SECTION-NAME SECTION. COPY text -name. 

E. PARAGRAPH-NAME. COPY text -name IN SUB. 

Of the examples above, A and D have copy members contained on the 
same UFD as the source program. B, C, and D have copy members not 
contained in the source program UFD; these have copy members con- 
tained in a UFD named SUB. 

3. The data preceding the COPY statement must not be contained 
within the copy member. 
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EXAMPLE: 

The following is from Data Division coding in a source program. 

01 MASTER-DESCRIPTION. COPY MASDES. 



The text -name MASDES exists in the same UFD as the source program. 
It must not contain the 01 MASTER- DESCRIPTION entry; it might 
have the format: 

02 BADGE-NO PIC 9(5). 
02 NAME. 

03 LAST -NAME PIC X(15) . 

03 FIRST-NAME PICXC15). 

After conq^ilation, examination of the listing file would reveal: 

01 MASTER-DESCRIPTION. (COPY MASDES.) (where the copy member is 
02 BADGE-NO PIC 9(5). comment only.) 

02 NAME. 

03 LAST -NAME PIC X(15) . 

03 FIRST -NAME PIC X (15). 
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DELETE 

FUNCTION: 

Hie DELETE statement logically removes a record from a disk file. 

FORMAT: 

DELETE file-name [ INVALID KEY imperative -statement] 

SYNTAX RULE: 

The INVALID KEY option must not be specified for a DELETE state- 
ment referencing a file in SEQUENTIAL access mode. 

GENERAL RULES: 

1. A DELETE statement logically removes a data record from a file. 
When operating on an indexed file, the DELETE statement removes 
all corresponding indices as well. 

2. Execution of a DELETE statement does not affect the contents 
of a record area associated with file -name. 

3. In SEQUENTIAL access, the record to be deleted must have been 
successfully read before a DELETE can be executed. 

4. In indexed files with RANDOM or DYNAMIC access modes, the value 
of the record to be deleted must be placed in the RECORD KEY field. 

5. In relative files with RANDOM or DYNAMIC access modes, the value 
of the record to be deleted must be placed in the RELATIVE KEY 
field. 

6. For additional discussion, see Sections 19 and 20. 
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D I SPLAY 



FUNCTION: 



The DISPLAY statement causes low-volume data to be output to the appro- 
priate hardware device. 



FORMAT: 



data -name 
DISPLAY < literal 

figurative-constant^ 



[UPON mnemonic -name] 



SYNTAX PULES: 

1. f-ftiemonic-name must be specified in the SPECIAL-NAMES paragraph 
in the Environment Division. 

2 . The maximum total number of characters which may be output is 72 . 



GENERAL RULES: 

1. When the UPON suffix is omitted, the system default is the 
standard display device, the on-line terminal. 

2. If a figurative -constant is given as an operand, it will be 
displayed as a single character. 

3. If a data item operand is packed, it is displayed as a series 
of digits followed by a separate trailing sign. 



EXAMPLES: 

Zzpe 

data -name 

data-name 
literal 

literal 



Statement 



Output 
52207 



DISPLAY BADGE -NO 

DISPLAY 'BADGE -NO = 'BADGE-NO BADGE-N = 52207 



DISPLAY 'END- JOB' 



literal 

figurative-constant DISPLAY 'SELECT' ZERO 



ENDJOB 
SELECT0 
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DIVIDE 



FUNCTION: 



The DIVIDE statement divides one numeric data itan into another and 
stores the quotient. 



FORMAT 1: 

DIVIDE < 



literal^l"''^ INTO data-name -2 [ ROUNDED] 



[; ON SIZE ERROR imperative- statement] 



FORMAT 2; 



DIVIDE < 



data-name- 1 
literal- 1 



BY < 



data-name-2 
literal -2 



' [ROUNDED] 



[; ON SIZE ERROR imperative- statement] 



FORMAT 3: 
DIVIDE 



(data-name- 1' 
literal- 1 



INTO 



data-name-2 
literal- 2 



GIVING data-name- 3 [ROUNDED] 



[; ON SIZE ERROR imperative -statement] 



SYNTAX RULES: 



1. Each data-name must refer to an elementary numeric item, except that 
a data-name associated with the GIVING phrase can refer either to an ele- 
mentary numeric itoii or to an elanentary numeric edited item. 

2. Each literal must be a numeric literal. 

3. The maximum size of each operand is 18 decimal digits. If all rec- 
ceiving data items were to be superimposed upon each other, aligned by^ 
their decimal points, their composite should not exceed 18 decimal digits 
in length. 

4. Division by zero always causes a size-error condition. 
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GENERAL RULES: 



1. In FORMAT 1, data-name -1 or literal -1 is divided into data- 
name-2; the quotient then replaces the divident (data-naine-2) . 

2. In FORMAT 2, data-name-1 or literal-1 is divided by data- 
name- 2 or literal-2. The quotient replaces the first operand, 
data-name-1. 

3. In FORMAT 3, division occurs as in A or B below, and the 
quotient is stored in the data items following the word GIVING. 

A. If the keyword INTO is used, the value of data-name-1 or 
literal-1 is divided into data-name-2 or literal-2 and 
the result is stored in data-name-3. 

B. If the keyword BY is used, data-name-1 or literal-1 is 
divided by data-name-2 or literal-2 and the result is 
stored in data-name-3. 

4. The REMAINDER clause of DIVIDE statement is not supported. 
The user may substitute by a simple modification: 

For the statement: 

DIVIDE data-name-1 by data-name-2 GIVING data-name-3 REMAINDER data-name-4 

Substitute : 

DIVIDE data-name-1 by data-name-2 GIVING data-name-3 
COMPUTE data-name-4 = data-name-1 MINUS 
(data-naine-2 TIMES data-name-3). 
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ENTER 

FUNCTION: 

The ENTER statement is classified as a compiler-directing statement; it 
acts as a modifier to a subsequent CALL statement and permits the use of 
more than one language in the same program. 

FORMAT: 

COBOL 



ENTER 



ASSEMBLER 



SYNTAX RULES: 

1. A CALLed subprogram may be written in COBOL, FORTRAN, or Assembly 
Language. The parameter ASSEMBLER in the ENTER statement signifies a 
subprogram is other than COBOL. 

2. The form ENTER COBOL may be used following a CALL statement; this 
traditional usage is optional. After any CALL statonent, ENTER COBOL 
is assumed. 

3. Each CALL upon an Assembler Language subroutine must be preceded 
by its own ENTER ASSH^IBLER statement. 

GENERAL RULES: 

1. The other language statements are executed in the object program 
as if they had been compiled in the object program following the ENTER 
statement. See INTER-PROGRAM COfMJNICATION for additional infonnation. 

2, The ENTER statement is optional in this compiler. 
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EXHIBIT 

FUNCTION: 

The EXHIBIT statement provides a means for receiving critical data at specified 
points in a procedure. 

FORMAT: 

EXHIBIT '' l^t^^^l 



I 



NAMED data-name 

GENERAL RULES: 

1. The EXHIBIT statement is injected at critical points in the Procedure 
Division to provide check-pointing information. Specified data is 
EXHIBITED on the teminal. 

2. The EXHIBIT statement differs from DISPLAY in that data-name is printed 
as well as its value and an = character. 

EXAMPLE: 

Statement OUTPUT 

EXHIBIT NAMED EMPLOYEE-NO EMPLOYEE-NO = 950 
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EX IT 

FUNCTION: 

The EXIT statement provides an end-point for a procedure. 

FORMAT: 
EXIT 

SYNTM RULES: 

1. The EXIT statement must appear in a sentence by itself. 

2. The EXIT sentence must be the only sentence in the paragraph. 

GENERAL RULES: 

1. An EXIT statement serves only to enable the user to assign a 
procedure -name to a given point in a program. Such an EXIT state- 
ment has no other effect on the conpilation or execution of the 
program. 
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EX IT PROGRAM 

FUNCTION: 

The EXIT PROGRAM statement marks the logical end of a called program. 

FORMAT: 

EXIT PROGRAM . 

SYNTAX RULES: 

1. The EXIT PROGRAM statement must appear in a sentence by itself. 

2. The EXIT PROGRAM sentence must be the only sentence in the 
paragraph. 

GENERAL RULES: 

1. An execution of an EXIT PROGRAM statement in a called program 
causes control to be passed to the calling program. Execution of 
an EXIT PROGRAM statement in a program which is not called behaves 
as if the statement were an EXIT statement. 
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GO TO 



FUNCTION: 



The GO TO statement transfers control £rcm one part o£ the PROCEDURE DIVISION 
to another, overriding the normal sequential execution o£ sentences. 

FORMAT 1: 

GO TO procedure-name. 
FORMAT 2: 

GO TO procedure-name- 1 [procedure -name- 2] . . . 
DEPENDING ON data-name. 

SYNTAX RULES: 

1. A paragraph referenced by an ALTER statement can consist only of a 
paragraph header followed by a format 1 GO TO statement. 

2. In Format 2, data-name must be an elementary, numeric integer. 

GENERAL RULES: 

1. A GO TO statement must not branch out of a range of the PERFORM 
statements. 

2. When a Fomat 1 GO TO statement is executed, control is transferred 
to procedure-name, or to another paragraph-name if the GO TO statement 
has been modified by an ALTER statement. 

3. When a GO TO statement represented by Format 2 is executed, control 
is transferred to procedure -name -1, procedure -name- 2, etc., depending on 
the value of the identifier being 1, 2, ..., n. If the value of the 
identifier is anything other than the positive or unsigned integers 1, 
2, ..., n, then no transfer occurs and control passes to the next state- 
ment in the normal sequence for execution. 

4. In a Format 2 GO TO statement, there is no limitation to the total 
number of characters permitted in procedure-names. The aggregate 
niMber of acceptable characters is unlimited. 
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I F 

FUNCTION: 

The IF statement causes the evaluation of a condition, permitting the 
execution o£ specified procedural statements if the condition is true. 

FORMAT: 

IP Edition {iS^^fS^} [ELSB feT^g>,^) ] 

SYNTAX RULE: 

The conditions in the IF statement must conform to the rules and 
outlining of conditions specified in Conditional Expressions, 
Section 12. 

GENERAL RULES: 

1. If the condition is true, any ELSE phrase is bypassed and either 
statement- 1 or the NEXT SENTENCE (whichever was specified in the 
statement) is executed, as follows: 

A. Statement-1, if specified, is executed. Control then 
passes to the next executable sentence following the IF 
statement, unless statement-1 contains a procedure -branch 
or conditional statement, in which case control is trans- 
ferred according to the rules for that statement. 

B. If the NEXr SENTENCE phrase is specified, control passes 
to the next executable sentence. 

2. If the condition is false, any statement-1 or its replacement 
NEXT SENTENCE which may be specified is bypassed, and control passes 
as follows : 

A. Statement-2, if specified, is executed. Control then passes 
to the next executable sentence, unless statement-2 contains 
a procedure -branch or conditional statement, in which case 
control is transferred according to the rules for that 
statement. 

B. If no ELSE statement-2 phrase is specified, or if the ELSE 
NEXT SENTENCE phrase is specified, control passes to the 
next executable sentence. 



REV. 



16 - 28 



PDR3056 PROCEDURE DIVISION 

3. The IF statement is said to be nested whenever statement-l and/or 
statement- 2 contains another IF statement. IF statements within IF 
statements are considered as paired IF and ELSE combinations, proceeding 
from left to right. Thus, any ELSE encountered applies to the imme- 
diately preceding IF which has not been already paired with an ELSE. 

It is not required that the number of ELSE's in a sentence be the same 
as the number of IF's. 

4. The relation condition has the format: 

IF operand relation operand 
The six relations in conditions are: 



Relation 

< 


Meaning 
is equal to 
is less than 


> 

NOT = 
NOT < 


is greater than 
is not equal to 
is not less than 


NOT > 


is not greater than 



5. The class condition determining whether an operand is numeric or 
alphabetic. Its format is: 

IF data-™ IS [NOT] j ^TIC 

The NUMERIC test is valid only for a group, decimal, or character item. 
The ALPHABETIC test is valid only for a group or character iton. 

6. The condition-name condition tests the value or status of a condi- 
tional variable. Its foimat is: 

IF [NOT] condition- name 

The condition-name is defined as a level 88 data item in the Record 
Description entry in the Data Division. 

In a condition-name condition, the first series of statements is executed 
if, and only if, the designated condition is true. The second series of 
statements is executed if, and only if, the designated condition is false. 
The second series (ELSE part) is terminated by a sentence-ending period. 
If there is no ELSE part to an IF statanent, then the first series of 
statements must be terminated by a sentence-ending period. 

Whether the condition is true or false, the next sentence is executed 
after execution of the appropriate series of statments. If a GO TO 
is contained in the imperatives which are executed, or the noimal flow 
of program steps is superseded because of an active PERFORM statement, 
the next sentence is not executed. 
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EXAMPLES: 

IF BALANCE = GO TO NOT-FOUND. 

IF X = 1.743 MDVE 'M' TO FLAG. 

IF ACCOUNT-FIELD = SPACES OR NAME = SPACES ADD 1 TO 
SKIP-COUNT ELSE GO TO BYPASS. 

7. The sign condition tests an arithmetic expression to determine 
whether its value is greater than, less than, or equal to zero. 
The format is: 

TnegativeI 

IF data-name IS [NOT] < ZERO \ 

~ I^positiveJ 

8. Two or more conditions can be combined by the logical operators 
AND and OR. The format for a combined condition is: 

IF condition 1^1 condition I ^1 condition ... 

9. Conparisons employing the IF statement can be made involving 
indexed data items. 

10. A "nested IF" exists when, in a single sentence, more than one 
IF precedes the first ELSE. 

EXAMPLE: 

IF X = Y IF A = B 

MOVE "*" TO SWITCH 
ELSE MOVE "A" TO SWITCH 
ELSE MOVE SPACE TO SWITCH 

The flow of the above sentence may be represented by the tree 
structure in Figure 16-2. 
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^ 






Space 


-♦Switch 


< 


i^ 


> 


Next 




^ 


/ 






Sentence 








* — ►Switch 












Next 
Sentence 




Next 
Sentence 



Figure 16-2. Nested IF Tree Structure 



Another useful way of viewing nested IF structures is based on 
numbering IF and ELSE verbs to show their priority. 



IFCD 



X = Y 



IF(2) A = B 
true I true-action (2) : 

actionCl): I ELSE(23 false -action (2) 



MOVE "A" TO SWITCH 
MOVE "A" TO SWITCH 



ELSE(l) false-action (1): MOVE SPACE TO SWITCH. 

The above illustration shows clearly the fact that IF (2) is wholly 
nested within the true-action side of IF(1). 

11. It is not required that the number of ELSEs in a sentence be 
the same as the number of IFs; there may be fewer ELSE branches. 

EXAMPLES: 

IF M = 1 IF K = 

GO TO M1K0 ELSE GO TO MN0T1. 

IF AMOUNT IS NUMERIC IF AMOUNT 
IS ZERO GO TO CLOSE-OUT. 

In the latter case, IF (2) could equally well have been written 

as AND. 
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I NSPECT 



FUNCTION: 



The INSPECT statement enables the programmer to examine a character- string 
itan, to tally, replace, or tally and replace occurrences of single char- 
acters in a data item. 



FORMAT: 



INSPECT data-name-1 TALLYING data-name-2 FOR 




operand- 2 



Tbefore' I : 

l^ AFTER J 



[ J before! , initial operand- 3] 

operand- 4 I BY operand- 5 



REPLACING ALL 



leading 



, FIRST 
CHARACTERS 



rBEF0RE\ 
y jFYER J 



INITIAL operand- 7] 



SYNTAX RULE: 

Data-name operands must be described (implicitly or explicitly) as 
USAGE IS DISPLAY. 

GENERAL RULES: 

1. When both TALLYING and REPLACING clauses are present, the two clauses 
behave as i£ two INSPECT statements were written. The first contains 
only a TALLYING clause, the second containing only a REPLACING clause. 

2. The INSPECT statement enables examination of a character- string item, 
peimitting various conbinations of the following actions: 

A. Counting appearances of a specified character; 

B. Mapping a specified character into an alternative. 

C. Qualifying and limiting the above actions by keying those actions 
to the appearance of other specific characters. 
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3. The TALLYING clause causes character-by- character comparison, 
from left to right, of data-name-1. When an AFTER INITIAL operand- 
3 subclause is present, the counting process begins only after 
detection of a character in data-name-1 matching operand- 3. If 
BEFORE INITIAL operand- 3 is specified, the counting process terminates 
upon encountering a character in data-name-1 which matches operand- 3. 
The count is accumulated in data-name-2. Data-name-2 is not initializ- 
ed prior to the operation. 

4. The REPLACING clause causes replacement of characters under 
specified conditions. If BEFORE INITIAL operand- 7 is present, 
replacement does not continue after detection of a character in 
data-name-1 matching operand- 7. If AFTER INITIAL operand- 7 is 
present, replacement does not commence until detection of a charac- 
ter in data-name-1 matching operand-7. 
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MOVE 



FUNCTION: 



The MOVE statement transfers data from one area o£ main storage to another, 
perfoiming conversion and editing as indicated. 

FORMAT: 



NDVE fdata-name-lj tq data-name -2 [data-name-n. . .] 



SYNTAX RULE: 

Data-name-l and literal represent the sending area; data-narae-2, 
data-name-n represent the receiving area. 

GENERAL RULES: 

1. When a group item is a receiving field, characters are moved without 
conversion and without editing. 

2. During elementary moves, data is converted as necessary, editing 
occurs, and alignment is performed according to Standard Alignment Rules, 
LANGUAGE SPECIFICATIONS. 

3. For numeric (external or internal decimal, binary, nimeric literal) 
to numeric or report: 

A. The items are aligned by decimal points, with generation of 
zeros or truncation on either end, as required. 

B. Mien the types of the source field and receiving field differ, 
conversion to the type of the receiving field takes place. 

C. The itans may have special editing performed on them with sup- 
pression of zeros, insertion of a dollar sign, etc. , and decimal 
point alignment, as specified by the receiving area. 

4. For non-numeric source and targets: 

A. The characters are placed in the receiving area from left to 
right (unless JUSTIFIED RIGHT applies) . 

B. If the receiving field is not completely filled by data being 
moved, the roniaining positions are filled with spaces. 
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C. If the source field is longer than the receiving field, the 
move is terminated as soon as the receiving field is filled. 

5. When overlapping fields are involved, results are not predictable. 

6. Table 16-2 summarizes the various types of moves permitted with 
the IVDVE statement. 




(A) If receiving operand length L is less than or 
equal to 18, target Picture 9CL) is assumed. 
Otherwise, the MOVE is disallowed. 

(B) The source is converted to DISPLAY foim with 
separate trailing sign (blank for positive) , 
then moved as a character string source subject 
to truncation or blank padding depending on 
receiving its length. 

(C) The source is considered as a character string. 

(D) If source length L is less than or equal to 18, 
source Picture 9(L) is assumed. Otherwise, the 
MOVE is disallowed. 



Table 16-2. Permissible Moves 
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MULTI PLY 



FUNCTION: 

The MULTIPLY statement computes the product o£ two numeric data items. 



MULTIPLY < 



> 



FORMAT: 

r ■^ 

data-name-1 
numeric- literal -1 

r ^ 

I data-name -2 [ GIVING data-name- 3] 
— I numeric- literal -2 GIVING data-name- 5 
*>- ^ 

[ ROUNDED [ON SIZE ERROR imperative -statement] 

SYNTAX RULES: 

1. Each data-name must refer to an elementary numeric item, except 
that data-name- 3 may be an elementary numeric edited iton. 

2. Each literal must be a numeric literal. 

3. The maximum size of each operand is 18 decimal digits. The 
composite of operands, excluding those following GIVING, must not contain 
more than 18 decimal digits. 

GENERAL RULES: 

1. If the GIVING option is omitted, the second operand must be a data- 
name; the product will replace the second operand data-name. 

EXAMPLE: 

If the field BALANCE is to be multiplied by 1.03, it must be written 
as: 

MULTIPLY 1.03 BY BALANCE 

Where the result will be stored in the data item named BALANCE. 

2. When the GIVING option is taken, the product is stored in data- 
name-3. 

3. The rules for signs are those presented in FUNDAMENTAL CONCEPTS OF 
COBOL, Algebraic Signs. 
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OPEN 

The OPEN statement initiates the processing o£ files, and enables other 
input/ output operations, such as label checking and writing. 



FORMAT 1; 



OPEN 



[■ 



INPUT 
OUTPUT 



• filename .. 



FORMAT 2: 



OPEN < 



INPUT 

I-O 

OUTPUT 



index-file-name-1 .. 



SYNTAX RULES: 

1. There must be an OPEN statement for each file prior to a READ, 
WRITE, or REWRITE statement. 

2. The files referred to in the OPEN statement need not all have the 
same organization or access. 

GENERAL RULES: 

1. Format 1 is used for Sequential 1-0 (SAM files). 

2. Format 2 is used for Indexed 1-0 and Relative I-O. 

3. A file opened as INPUT can only be accessed in a READ statonent. 

4. A file opened as OUTPUT can only be accessed in a WRITE statement. 

5. A file opened as I-O can be accessed by a READ, REWRITE (disk only) 
or WRITE statements. 

6. II the OPEN statement does not produce access to the file (i.e., 
it cannot locate the desired file) , the program will terminate 
abnormally at execution time. 

7. See Sections 19 and 20 for additional information on Indexed 
I-O and Relative I-O, respectively. 

8. OPEN statements vs. Access Mode for Indexed and Relative files 
are presented in Table 16-3 below. 
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FILE 


ACCESS 


Procedure 


OPEN Option in Effect ' 








ORGANIZATION 


NDDE IS 


Statement 


Input 


Output 


I-O 






READ 


X 




X 


SEQUENTIAL 




WRITE 




X 




INDEXED 


SEQUENTIAL 


REWRITE 






X 


RELATIVE 




START 
DELETE 


X 




X 
X 






READ 


X 




X 






WRITE 




X 


X 


INDEXED 


RANDOM 


REWRITE 






X 


RELATIVE 




START 
DELETE 






X 






READ 


X 




X 






WRITE 




X 


X 


INDEXED 


DYNAMIC 


REWRITE 






X 


RELATIVE 




START 
DELETE 


X 




X 
X 



Table 16-3. OPEN Statements and Access Modes 
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PERFORM 



FUNCTION: 



The PERFORM statement is used to transfer control explicitly to one or 
more procedures, and to return control implicitly to the normal sequence 
after transfer execution. 



FORMAT 1: 



PERFOPM procedure-name-1 [ , 



THROUGH 
THRU 



^ procedure -name -2 ] 



[ 



integer 
data- name -1 



TIMES] 



FORMAT 2: 

PERFORM procedure-name-1 [ ^ 



THROUGH 



THRU 



^ procedure -name -2 ] 



[ VARYING 



data-name- 2 
index-name-ll 



FROM 



data-name-3 
index-name- 2 



BY 



literal -1 



^ data-name- 4^] [ UNTIL condition- 1 ] 
literal -2 



SYNTAX RULES: 

1. The words THROUGH and THRU are equivalent. 

2. Each data-name represents an elonentary numeric item described in 
the Data Division. 

3. Each literal represents a numeric literal. 

4. In Format 2, if an index -name is specified in the VARYING or AFTER 
phrase, then: 

A. Data-name in the associated FRCM and BY phrases must be an 
integer data iton. 
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B. The literal in the associated FRCM phrase must be a positive 
integer. 

C. The literal in the associated BY phrase must be a non-zero 
integer. 

5. In Foimat 2, if an index -name is specified in the FRCM phrase, 
then: 

A. Data-name in the associated VARYING or AFTER phrase must be an 
integer data item. 

B. The data-name in the associated BY phrase must be an integer 
data item. 

C. The literal in the associated BY phrase must be an integer. 

6. In Format 2, literal in the BY phrase must not be zero. 

7. In Format 2, condition-1. . . condition-n may be any conditional 
expression as described in FUNDAMENTAL CONCEPTS OF COBOL, Conditional 
Expressions. 

GENERAL RULES: 

1. If procedure-name-n is a paragraph-name, control is returned to the 
next sequential instruction after the last sentence of that paragraph. 

2. If procedure-name-n is a section-name, control is returned to the 
next sequential instruction after the last sentence of the last paragraph 
of that section. 

3. If the PERFOra^ statement is written with no options, control is 
transferred to procedure-name-1. At the completion of procedure -name- 1, 
control is implicitly returned to the next executable statanent following 
the PERFORM statement. 

4. If the THROUGH option in Format 1 is taken, multiple paragraphs or 
sections can be executed before control is returned to the next sequential 
statement. 

5. In Format 1, if the TIMES option is taken, procedures are performed 
the number of times specified by data-name- 1 or integer. At the comple- 
tion of procedure-name- 2, control is returned to the statement following 
PERFORM. 

Data-name- 1 or integer must be a positive numeric integer which cannot 
be greater than 32,767. 
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I£ data- name- 1 or integer is initially zero or negative, the PERFORM 
is not executed; control passes to the statement following PERFORM. 

6. I£ the UNTIL option in Format 2 is taken, successive execution o£ 
procedures occurs until a condition is satisfied. 

The statement is coded as: 

PERFORM procedure-name-l[THRU procedure-name- 2] UNTIL condition-1. 

Condition- 1 must be a simple condition, excluding an ELSE or OTHERWISE 
phrase. 

The condition is tested prior to execution of the PERFORM statement. 
If the condition is not met, PERFORM is executed tintil the condition 
is satisfied. If the condition is satisfied prior to execution of the 
PERFORM statanent, PERFORM is not executed and control passes to the 
next sequential instruction. 

7. Foimat 2 with all options is used to vary the values referred to 
by data-name-2 or index~name-l. 

The condition is tested prior to execution of the PERFORM statement. 
If the condition is true, PERFORM is not executed; control passes to 
the next sequential instruction. 

If the condition is false, data-name-2 is set to the current value of 
data-name-3 or literal-1 at the point of initial execution of the 
PERFORM statement. If the condition is still false, procedure -name -1 
THRU procedure -name -2 are executed once. 

The value of data-name-2 is incremented or decremented by the value in 
data-name- 4 or literal- 2. The condition is reevaluated. The cycle 
continues until the condition is satisfied, at which point control is 
transferred to the next executable statement following PERFORVI. 

8. At the termination of a Format 2 PERFORM statement, data-name-2 
or index-name- 1 have a value which exceeds the last used setting by 
the value of data-name- 4 or literal- 2. If the condition was true 
before initial execution of PERFORM, data-name-2 or index-name-1 
contain the current value of data-name-3 or index-name -2. 
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READ 

FUNCTION: 

The READ statement makes available a record from a file. 

FORMAT 1: 

READ file-name [ NEXT] RECORD [INTO data-name- 1] 
[AT END imperative statement] . 

FORMAT 2: 

READ file-name [INTO data-name- 1] [ KEY IS data-name- 2] 
[ INVALID KEY imperative-statement] . 

SYNTAX RULES: 

1. Format 1 is used for all sequentially read files. 

2. The NEXT phrase option in Format 1 is used only for Indexed and 
Relative I-O files, in sequential or Dynamic access modes, when records 
are to be retrieved sequentially. 

3. Format 2 is used only for Indexed 1-0 and Relative 1-0 files. 

4. The KEY IS option of Format 2 is used only for Indexed 1-0 files. 

GENERAL RULES: 

1. A file must be OPEN in the INPUT or 1-0 mode when a READ statanent 
for that file is executed. 

2. The READ statement makes a record available to the program before 
execution of any subsequent statanent, provided AT END or INVALID KEY 
are not invoked. 

3. Format 1, without the NEXT option, is used for sequential 1-0 files. 
The INTO option permits the user to specify that a copy of the data 
record is to be placed into a data area immediately after the read state- 
ment. The data-name must not be defined in the file itself. 
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If end-of-file occurs, but there is no AT END clause in the READ 
statement, an applicable Declarative procedure is performed. If 
neither AT END nor Declarative exists, an execution I-O error 
occurs . 

4. Format 1, without the NEXT option, is used for sequential reads 
of indexed 1-0 files in sequential access mode. The read is based 
on the primary index (RECORD KEY) . 

5. Format 1, without the NEXT option, is used for sequential reads 
of Relative 1-0 files in sequential access mode. The read is based 
on the RELATIVE KEY. 

6. Indexed and Relative 1-0 files in Dynamic mode, may be read 
sequentially, rather than randomly, by use of the NEXT option. 

7. For General Rules 4, 5, and 6 above, if the INTO clause is 
used, the data record is automatically moved into data-name -1. When 
AT END is specified, control is passed to the inperative- statement 
after the complete file has been read. 

8. For Indexed 1-0 files in Dynamic and Random mode, if NEXT is 
not specified, and the file is to be read sequentially, the value 
of the record to be retrieved must be placed in the RECORD KEY 
data-name . 

9. For Relative 1-0 files, if NEXT is not specified, and the file 
is to be read sequentially, the value of the record to be retrieved 
must be placed in the RELATIVE KEY data-name. 

10. For Indexed 1-0 files read sequentially, if one of the secondary 
index sequences is to be used, the index must first be established 
with a Format 2 statement. Thereafter, a Format 1 statement may 

be used. 

11. NOTE : For sequential 1-0 disk files containing packed or binary 
data, the user should specify UNCOMPRESSED in the FD entry for that 
file. 

12. Further detailed discussion of READ statement formats as they 
apply to Indexed 1-0 files and Relative 1-0 files will be found in 
Sections 19 and 20, respectively. 
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READY TRACE 

FUNCTION: 

The READY TRACE statement turns on a Prime tracing function to assist in 
determining the point at which actual flow departs frcm expected flow. 

FORMAT: 

READY TRACE 

SYNTAX RULE: 

The execution of the trace mode may be set or reset dynamically. 

GENERAL RULES: 

1. Each time a paragraph or section in the Procedure Division is 
entered, that paragraph or section name is output to the teiminal. 

2. In 64R mode the format printed is: 

Program name/subprogram name section-name/paragraph-name 

3. In 64V mode, the format printed is: 

ENTER: section-name/paragraph-name. 

4. At Rev. 14, the output from the READY TRACE statement can be 
directed to a separate file in addition to the user terminal output. 
The system conmiand CCMOUT is used for this purpose. The command is 
given just prior to program execution; its foimat is: 

COM3 file -name 

where file-name is a programmer supplied word. 

At program completion, the system command, C(M) -E will close the file, 
close the file. 

All data resulting from READY TRACE will be output to file -name and 
can be SPOOLed or SLISTed at program termination. 

5. It is a good technique to TRACE only a limited number of records, 
such that the output will not be too large to handle, thereby dimin- 
ishing its value for debugging purposes. 
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RESET TRACE 

FUNCTION: 

This statanent turns off the Prime tracing function. 

FORMAT: 

RESET TRACE 

GENERAL RULE: 

The RESET TRACE statanent may be coded anywhere in the Procedure 
Division when a READY TRACE statement has been previously coded. 
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REWRITE 

FUNCTION: 

The REWRITE statement logically replaces a record existing in a disk 
file. 

FORMAT: 

REWRITE record-name [ FRCM data-name] 
[ INVALID KEY imperative -statement] 

SYNTAX RULES: 

1. Record-name and data-name must not refer to the same storage area, 

2. Record-name is the name of a logical record in the File Section 
and may be qualified. 

GENERAL RULES: 

1. The file containing record-name must be a disk file and must be 
open for I-O (in all access methods) prior to execution of a REWRITE 
statement. 

2. If the FROM option is used, the information in data-name is moved 
to the record area prior to the REWRITE. For indexed 1-0 files, the 
primary RECORD KEY must equal the key from the previous READ, or the 
INVALID KEY conditions will occur. 

3. A record must have been READ successfully prior to a RHVRITE state- 
ment. This is required to lock the record to ensure that it cannot be 
updated by another program running concurrently. 

4. The INVALID KEY option is not used for sequential 1-0 files. The 
file status field, if specified, is updated by the REWRITE statement. 

5. For Indexed 1-0 files, control is passed to the INVALID KEY state- 
ment if the primary key is changed. If this option is not written, 
control passes to the USE DECLARATIVE. One or the other of these options 
must be taken for indexed files. Refer to Appendix E for status codes. 

6. For Relative 1-0 files, control is passed to the INVALID KEY state- 
ment if the RELATIVE KEY is changed after a successful READ. If the 
INVALID KEY option is not taken, control passes to the USE DECLARATIVE. 
One or the other of these options must be taken. 
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7. A sequential file using REWRITE naist be a COBOL -created file 
other than a printer file, or any uncompressed file. 

8. See Sections 19 and 20 for additional information on Indexed 
I-O and Relative I-O, respectively. 
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SEARCH 



FUNCTION: 



The SEARCH statanent is used to search a table for a table element which 
satifies the specified condition, and to adjust the associated index -name 
to indicate that table element. 



FORMAT: 

SEARCH data-name- 1 



VARYING /"data-name-2 
_ l^index - name - 1_^ 



[; AT END imperative-statement- 1] 

, WHEN condition-1 rin5)erative-statanent-2^ 
I NEXT SENTENCE J 

[; WHEN condition-2 f ^IT'llil^-^^^^^'^^''^-^] ] 
1 NEXT SENTENCE J 



SYNTAX RULES: 

1. Data-name -1 must not be subscripted or indexed, but its description 
must contain an OCCURS clause and an INDEXED BY clause. 

2. Data-name-2, when specified, must be described as USAGE IS INDEX 
or as a numeric elementary item without any positions to the right of 
the assumed decimal point. 

3. Condition-name- 1, condition-name-2 may be any condition as described 
under Conditional Expressions in Section 12. 

GENERAL RULES: 

1. A SEARCH statement enables a serial type of search operation, start- 
ing with the current index setting. 

A. If, at the start of execution of the SEARCH statement, the index- 
name associated with data-name-1 contains a value which cor- 
responds to an occurrence number greater than the highest per- 
missible occurrence number for data-name-1, the SEARCH is termi- 
nated immediately. If the AT END phrase is specified, imperative- 
statement- 1 is executed; if the AT END phrase is not specified, 
control passes to the next executable sentence. 

B. If, at the start of execution of the SEARCH statanent, the 
index-name associated with data-name-1 contains a value cor- 
responding to an occurrence number not greater than the highest 
permissible occurrence number for data-name-1, the SEARCH state- 
ment operates by evaluating the conditions in the order in which 
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they are written, making use o£ the index settings, wherever 
specified, to determine the occurrence o£ those itons to be 
tested. If none of the conditions are satisfied, the index- 
name for data-name-1 is incremented to obtain reference to 
the next occurrence. The process is repeated, using the new 
index-name settings. If the new value of the index -name set- 
tings for data-name-1 corresponds to a table element outside 
the peimissible range of occurrence values, the search termi- 
nates as indicated in lA above. If one of the conditions is 
satisfied upon its evaluation, the search terminates immedi- 
ately and the imperative statement associated with that condi- 
tion is executed; the index-najne ronains set at the occurrence 
which caused the condition to be satisfied. 

2. If imperative- statement- 1, imperative- statement -2, or imperative- 
statanent-3, that does not terminate with a GO TO statanent, control 
passes to the next executable sentence. 

3. If the VARYING phrase is not used, the index -name which is used 
for the search operation is the first (or only) index -name appearing 
in the INDEXED BY phrase of data-name-1. Any other index -names for 
data-name-1 remain unchanged. 

4. If the VARYING index -name -1 phrase is specified, and if index - 
name-1 appears in the INDEXED BY phrase of data-name-1, that index -name 
is used for this search. If this is not the case, or if the VARYING 
data-name- 2 phrase is specified, the first (or only) index -name given 
in the INDEXED BY phrase of data-name-1 is used for the search. In 
addition, the following operations will occur: 

A. If the VARYING index-name-1 phrase is used, and if index -name-1 
appears in the INDEXED BY phrase of another table entry, the 
occurrence number represented by index-name-1 is incremented 
by the same amount as, and at the same time as, the occurrence 
number represented by the index -name associated with data-name- I 

B. If the VARYING data-name-2 phrase is specified, and data- 
name- 2 is an index data iton, then the data item referenced 

by data-name-2 is incremented by the same amount as, and at the 
same time as, the index associated with data-name-1. If 
data-name-2 is not an index data item, the data iten referenced 
by data-name-2 is incranented by the value one (1) at the same 
time as the index referenced by the index -name associated with 
data-name-1. 
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5. If data-name -1 is a data item subordinate to another containing 
an OCCURS clause (providing for a two or three dimensional table) , 
an index-name must be associated with each dimension of the table. 
This is acconplished through the INDEXED BY phrase of the OCCURS 
clause. Only the setting of the index-name associated with data- 
name- 1 (and data-name- 2 or index-name- 1, if present) is modified 
by the execution of the SEARCH statement. To search an entire two 
or three dimensional table, it is necessary to execute a SEARCH 
statonent several times. Prior to each execution of a SEARCH state- 
ment, SET statements must be executed to adjust index-names to 
appropriate settings. 

6. A flow chart of the SEARCH operation containing two WHEN phrases 
is presented in Figure 16-3. 

7. Additional information may be found in Section 18, Table 
Handling. 
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* These operations are options included only when specified in the SEARCH 
statement. 

** Each of these control transfers is to the next executable sentence unless 
the imperative- statement ends with a GO TO statement. 



Figure 16-3. SEARCH Operation Flowchart 
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SET 



FUNCTION: 



The SET statement establishes reference points for table handling 
operations by setting index-names associated with table elements. 



FORMAT 1: 



SET 



findex- 
\_data-name 



name-ll 
iame-1 J 



{index-name-3| 
data-name- 3 
integer- 1 



FORMAT 2: 



findex-name- 
\ data- name 



SET 



-4 J • ■ • y 



UP BY 
DOWN BY 



> rindex-name-6 
^? < data -name- 6 
•^ I integer- 2 



SYNTAX RULES: 

1. All references to index -name-1, data-name-1, index-name-4 and 
data-name-4 apply equally to index-name-2, data-name-2, index -name-5, 
and data-name- 5, respectively. 

2. Data-name- 6 must be described as an elementary numeric integer. 

GENERAL RULES: 

1. In any SET statement, data-names are restricted to binary items, 
except that a decimal item may follow on the word TO. 

2. An index-name should only apply to the OCCURS which defines it. 

3. The SET verb cannot be used on a subscripted data-name. 

4. Index -names are considered related to a given table and are defined 
by being specified in the INDEXED BY clause. 

5. If index -name- 3 is specified, the value of the index before the 
execution of the SET statement must not exceed the oc<airrence 
number of an elonent in the associated table. 
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6. In Format 1, the following action occurs: 

A. Index-name-1 is set to a value causing it to refer to a 
table element. That element corresponds in occurrence 
number to the table element referenced by index-name-3 , 
data-name-3, or integer-1. If data-name-3 is an index 
data item, or if index-name- 3 is related to the same table 
as index-name-1, no conversion takes place. 

B. If data-name-1 is an index data item, it may be set equal 
to either the contents of index-name-3 or data-name-3, 
where data-name-3 is also an index data item; no conversion 
takes place in either case. 

C. If data-name-1 is not an index data item, it may be set only 
to an occurrence number which corresponds to the value of 
index-name-3. Neither data-^name-3 nor integer-1 can be used 
in this case. 

D. The process is repeated for index -name-2, data -name -2, etc. , 
if specified. Each time, the value of index-name-3 or data- 
name- 2 is used as it was at the beginning of the execution 
of the statement. 

7. In Format 2, the contents of index -name -4 are incremented (UP BY) 
or decranented (DOWN BY) by a value corresponding to the number of 
occurrences represented by the value of integer-2 or data-name-6; 
thereafter, the process is repeated for index-name- 5, etc. Each time 
the value of data-name-6 is used as it was at the beginning of the 
execution of the statanent. 

8. See Section 18, TABLE HANDLING for additional information. 
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START 

FUNCTION: 

The START statement provides a basis for logical positioning, within 
an Indexed I-O or Relative I-O file, for subsequent sequential or 
dynamic retrieval of records. 

FORMAT: 

f GREATER THAN "1 
START file-name [^ IS [ < NOT LESS THAN) ] data-name] 

[ equal to J 

[INVALID KEY imperative -statement. . .] 



SYNTAX RULE: 

File-name must be the name of a file with sequential or dynamic 
access . 



GENERAL RULES: 

1. Option 1: START file -name. 

A. In an Indexed file, this option positions the file to the 
value contained in the RECORD KEY data-name. 

B. In a Relative file, this option positions the file to a 
value contained in the RELATIVE KEY data-name. 

C. In either file structure, if the indicated record is not 
present on the file, control is passed to the DECLARATIVES 
section if present; otherwise, the program terminates. 

2. Option 2: START file-name KEY IS data-name. 

A. In an Indexed file, this option will position the file to 
the value contained in data-name (data -name is the name of 
either RECORD KEY or one of the ALTERNATE RECORD KEYs) . 

B. In a Relative file, this option will position the file to 
the file to the value contained in data-name as defined in 
RELATIVE KEY. 

C. In either file structure, if the indicated record is not 
present on the file, control is passed to the DECLARATIVES 
section if present; otherwise, the program terminates. 
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(greater than 1 

3. Option 3: START file-name [KEY IS [ SNOT LESS THAN^ ] data-name] 

l^EQUAL TO J 

[ INVALID KEY imperative -statement. . .] . 

For both Indexed I-O and Relative I-O files, if the option GREATER 
or NOT LESS is specified, the file is positioned for the next access 
to be greater than or less than the value specified in the data- 
name. This option allows the keys to contain partial values. 

4. The INVALID clause or DECLARATIVES is taken if there is no data 
satisfying data-name and the STATUS code returned is a 23 on a full 
key. 
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STOP 

FUNCTION: 

The STOP statement is used to terminate or delay execution of the object 
program. 



FORMAT: 
STOP 



[mm "X 

\_literalj 



SYNTAX RULE: 



I£_a STOP RUN statement appears in a consecutive sequence o£ inper- 
ative statements within a sentence, it must appear as the last state- 
ment in that sequence. 



GENERAL RULES: 

1. STOP RUN terminates execution of a program, returning control 
to the operating system. 

2. STOP RUN cannot be used in a called program. 

3. If STOP literal is specified, the literal is communicated on 
the console, and execution is suspended. Execution is resumed at 
the next executable statement in sequence after operator interven- 
tion. Presumably, the operator performs a function suggested by 
the contents of the literal, prior to resiming program execution. 
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STRING 



FUNCTION: 



The STRING statement provides juxtaposition o£ the partial or complete 
contents of two or more data items into a single data item. 



FORMAT: 



STRING /data-name-i\ T da 
2lM^ \literal-l J K li 



data-name- 
literal-2 



(data -name -4 
' \literal-4 



•I 



data-name-5 
literal-5 



•1 



data -name -3 
DELIMITED BY ( literal-3 

SIZE 

k^ .■ 

rdata-name-Gl 
DELIMITED BY < literal -6 

SIZE 



L~ 



INTO data-name -7 [WITH POINTER data-name- 8] 



[; ON OVERFLOW imperative- statement] 



SYNTAX RULES: 

1. Each literal may 'be any figurative constant (without the optional 
word ALL) . 

2. All literals must be described as nonnumeric literals. All data- 
names, except data-name-8, must be described implicitly or explicitly 
as usage is DISPLAY. 

3. Data-name- 7 must represent an elementary alphanumeric data item 
without editing symbols or the JUSTIFIED clause. 

4. Data-name-8 must represent an elementary, numeric, integer data 
item of sufficient size to contain a value equal to the size of data- 
name -7 + 1. The symbol P may not be used in the PICTURE character- 
string of data-name-8. 

5. Where data-name-1, data-name- 2, ..., or data-name-3 is an ele- 
mentary numeric data item, it must be described as an integer with- 
out the symbol P in its PICTURE character -string. 

GENERAL RULES: 

1. All references to data-name-1, data-name- 2, data-name-3, literal-1, 
literal-2, literal-3 apply equally to data-name-4, data-name-5, data- 
name-6, literal-4, literal-5, and literal-6, respectively, and all 
recursions thereof. 
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2. Data-name-1, literal-1, data-name-2, literal-2, represent the 
sending items. Data-name-7 represents the receiving item. 

3. Literal-3, data-name-3, indicate the character(s) delimiting 
the move. I£ the SIZE phrase is used, the conplete data item de- 
fined by data-name-1, literal-1, data-name-2, literal-2, is moved. 
When a figurative constant is used as the delimiter, it stands for 
a single character nonnumeric literal. 

4. When a figurative constant is specified as literal-1, literal-2, 
literal-3, it refers to an implicit, one character data item whose 
usage is DISPLAY. 

5. When the STRING statement is executed, the transfer of data is 
governed by the following rules: 

A. Those characters from literal-1, literal-2, or from the 
contents of the data item referenced by data-name-1, data- 
name-2, are transferred to the contents of data-name-7 in 
accordance with the rules for alphanumeric to alphanumeric 
moves, except that no space -filling will be provided. 

B. If the DELIMITED phrase is specified without the SIZE 
phrase, the contents of the data item referenced by data- 
name-1, data-name-2, or the value of literal-1, literal-2, 
are transferred to the receiving data item, this occurs 

in the sequence specified in the STRING statement, begin- 
ning with the leftmost character and continuing from left 
to right until the end of the data item is reached, or 
until the character (s) specified by literal-3, or by the 
contents of data-name-3 are encountered. The character (s) 
specified by literal-3 or by the data item referenced by 
data-name-3 are not transferred. 

C. If the DELIMITED phrase is specified with the SIZE phrase, 
the entire contents of literal-1, literal-2, or the 
contents of the data item referenced by data-name-1, data- 
name-2, are transferred. The transferr proceeds in the 
sequence specified in the STRING statement to the data item 
referenced by data-name-7, until all data has been trans- 
ferred or the end of the data item referenced by data- 
name-7 has been reached. 

6. If the POINTER phrase is specified, data-name-8 is explicitly 
available to the programmer. He is then responsible for setting its 
initial value. Ilie initial value must not be less than one. 

7. If the POINTER phrase is not specified, the following general 
rules apply as if the user had specified data-name- 8 with an initial 
value of 1: 

8. When characters are transferred to the data item referenced by 
data-name-7, the following occurs. The transfer behaves as though 
characters were moved, one at a time, from the source to the data 



REV. 



16 - 58 



PDR3056 PROCEDURE DIVISION 



item character position referenced by data-name- 7 and designated by 
the value o£ data-name-8. Data-name-8 is increased by one prior to 
the move o£ the next character. The value associated with data- 
name-8 is changed during execution o£ the STRING statement only by 
the behavior specified above. 

9. At the end of execution of the STRING statement, only the por- 
tion of the data item referenced by data-name -7 (that which was 
referenced during the execution of the STRING statement) is changed. 
All other portions of the data item referenced by data-name -7 will 
contain data which was present before this execution of the STRING 
statement. 

10. Data transfer to data-name -7 terminates when the value in data- 
name-8 is either less than 1, or exceeds the number of character 
positions in data-name- 7. Such termination may occur at any point 
at or after initialization of the STRING statement. If temination 
occurs as a result of such a condition, the imperative statement 

in an ON OVERFLOW phrase is executed, if specified. 

11 . If the ON OVERFLOW phrase is not specified when the conditions 
described in General Rule 10 above are encountered, control is 
transferred to the next executable statement. 
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SUBTRACT 

FUNCTION: 

The SUBTRACT statement subtracts one or more numeric data items from 
a specified item and stores the difference. 



FORMAT 1: 
SUBTRACT 



/data-name -ll T data-name -fl 

lliteral-1 ( , literal-2 ••' FROM data-name -m [ ROUNDED] 



[ON SIZE ERROR imperative -statement] 

FORMAT 2: 

gUg-pj^prp /data -name- ll , data-name- 2 
IJ.iteral-1 J I, literal-2 

?^ {me'aS"'") «™G data-na.e-„ 

[ ROUNDED] [ON SIZE ERROR imperative-statement] 

SYNTAX RULES: 

1. Each data-name must refer to a numeric elementary item, except 
that data-name -n (following GIVING) may be an elementary numeric 
edited item (report item) . 

2. Each literal must be a numeric literal. 

3. The maximum size of each operand is 18 decimal digits. If all 
receiving data items were to be superimposed upon each other, 
aligned by their decimal points, their composite should not exceed 
18 decimal digits in length. 

GENERAL RULES: 

1. In Format 1, the effect of the SUBTRACT statement is to sum the 
values of all the operands which precede FROM, and then to subtract 
that sum from the value of the item following FROM. The result is 
stored in data-name -m. 
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2. In Format 2, all literals and data -names preceding FROM are 
added together, the sum is subtracted from data -name -m or literal -m, 
and the result is stored in data-name -n, 

3. See the rules for arithmetic statements under Procedure Division, 
General Rules. The ROUNDED and ON SIZE ERROR options may be used 
when truncation of results could occur. 

4. The rules for signs are those presented in FUNDAMENTAL CONCEPTS 
OF COBOL, Algebraic Signs. 
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UNSTRING 



FUNCTION: 



The UNSTRING statement causes contiguous data in a sending field to be 
separated and placed into multiple receiving fields. 



FORMAT: 

UNSTRING data-name -1 



■I 



'INTO data-name-4 [, DELIMITER IN data-name-5] [, COUNT IN data-name-6] 

, data-name-7 [, DELIMITER IN data-name-8] [, COUNT IN data-name-9] 

[WITH POINTER data-name-10] [ TALLYING IN data-name-11] 
[; ON OVERFLOW imperative -statement] 



SYNTAX RULES: 

1. The ALL phrase option is not the figurative constant ALL. 

2. Each literal must be a nonnumeric literal. In addition, each 
literal may be any figurative constant without the optional word ALL. 

3. Data-name-1, data-name-2, data-name-3, data-name-5, data-name-8, 
must be described, implicitly or explicitly, as an alphanumeric data 
item. 

4. Data-name-4 and data-name-7 may be described as either alphabetic 
(except that the symbol B may not be used in its picture -string) , 
alphanumeric, or numeric (except that the symbol P may not be used 

in its picture -string) , and must be described as usage is DISPLAY. 

5. Data-name-6, data-name-9, data-name-10, data-name-11 must be 
described as elementary numeric integer data items (except that the 
symbol P may not be used in their picture-strings) . 

6. No data -name may name a level 88 entry. 

7. The DELIMITER IN phrase and the COUNT IN phrase may be specified 
only if the DELIMITED BY phrase is specified. 
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GENERAL RULES: 

1. All references to data-name- 2, liateral-1, data-name-4, data- 
name-5, and data-name-6, apply equally to data-name-3, literal-2, 
data-name- 7, data-name-S, and data-name-9, respectively, and all 
recursions thereof, 

2. Data-name -1 represents the sending area. 

3. Data-name-4 represents the data receiving area. Data-name-5 
represents the receiving area for delimiters. 

4. Literal -1 or the data item referenced by data-name- 2 specifies 
a delimiter. 

5. Data-name-6 represents the count of the number of characters 
within data-name- 1, isolated by the delimiters for the move to 
data-name-4. This value does not include a count of the delimiter 
character (s). 

6. The data item referenced by data-name -10 contains a value 
which indicates a relative character position within the area de- 
fined by data-name-1. 

7. The data item referenced by data-name -11 is a counter which 
records the number of data items acted upon during the execution 
of an UNSTRING statement. 

8. When a figurative constant is used as the delimiter, it stands 
for a single character, nonnuraeric literal. 

tVhen the ALL phrase is specified, one occurrence (or two or more 
contiguous occurrences) of literal-1 (figurative constant or not) , 
or the contents of the data item referenced by data-name- 2, are 
treated as if it were only one occurrence. This occurrence is 
moved to the receiving data item according to the rules in General 
Rule 13D below, 

9. When any examination encounters two contiguous delimiters, the 
current receiving area is either space or zero filled according 

to the description of the receiving area. 

10. Literal-1, or the contents of the data item referenced by data- 
name-2, can contain any character in the computer's character set. 

11. Each literal-1 or the data item referenced by data-name- 2 
represents one delimiter, Wxen a delimiter contains two or more 
characters, all of the characters must be present in contiguous 
positions of the sending item and in the order given to be recog- 
nized as a delimiter. 
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12. IVhen two or more delimiters are specified in the DELIMITED BY 
phrase, an OR condition exists between them. Each delimiter is 
compared to the sending field. If a match occurs, the character (s) 
in the sending field is considered to be a single delimiter. No 
character (s) in the sending field can be considered a part of more 
than one delimiter. 

Each delimiter is applied to the sending field in the sequence 
specified in the UNSTRING statement. 

13. When the UNSTRING statement is initiated, the current receiving 
area is the data item referenced by data-name-4. Data is trans- 
ferred from data -name -1 to data-name-4 according to the following 



rules: 



A. If the POINTER phrase is specified, the string of characters 
referenced by data-name -1 is examined beginning with the 
relative character position indicated by the contents of 
data-name-10. If the POINTER phrase is not specified, the 
string of characters is examined beginning with the left- 
most character position. 

B. If the DELIMITED BY phrase is specified, the examination 
proceeds, left to right, until either a delimiter specified 
by the value of literal- 1 or the data item referenced by 
data-name-2 is encoimtered. (See General Rule 11.) If the 
DELIMITED BY phrase is not specified, the number of char- 
acters examined is equal to the size of the current receiv- 
ing area. However, if the sign of the receiving item is 
defined as occupying a separate character position, the 
number of characters examined is one less than the size of 
the current receiving area. 

If the end of the data item referenced by data -name -1 is 
encountered before the delimiting condition is met, the 
examination terminates with the last character examined. 

C. The characters thus examined (excluding the delimiting char- 
acter (s), if any) are treated as an elementary alphanumeric 
data item, and are moved into the current receiving area 
according to the rules for the MOVE statement. 

D. If the DELIMITER IN phrase is specified, the delimiting 
character (s) are treated as an elementary alphanumeric data 
item and are moved into the data item referenced by data- 
name- 5 according to the rules for the move statement. If 
the delimiting condition is the end of the data item 
referenced by data-name-1, then the data-name-5 is space- 
filled. 
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E. I£ the COUNT IN phrase is specified, a value equal to the 
number of characters thus examined (excluding the delimiter 
character(s) , if any) is moved into the area referenced by 
data-name -6 according to the rules for an elementary move. 

F. If the DELIMITED BY phrase is specified, the string of char- 
acters is further examined, beginning with the first char- 
acter to the right of the delimiter. If the DELIMITED BY 
phrase is not specified, the string of characters is further 
examined, beginning with the character to the right of the 
last character transferred. 

G. After data is transferred to data-name- 4, the current re- 
ceiving area is data -name- 7. The behavior described in 
paragraphs 13C through 13F is repeated until either all the 
characters are exhausted in the data item referenced by data- 
name -1, or until there are no more receiving areas. 

14. The initialization of the contents of the data items associated 
with the POINTER phrase or the TALLYING phrase is the responsibility 
of the user. 

15. The contents of the data item referenced by data-name-10 will be 
incremented by one for each character examined in the data item 
referenced by data-name-1. When the execution of an UNSTRING state- 
ment with a pointer phrase is completed, data-name-10 will contain 

a value equal to the initial value, plus the number of characters 
examined in the data item referenced by data-name-1. 

16. When the execution of an UNSTRING statement with a TALLYING phrase 
is completed, the contents of the data-name- 11 will be a value equal 
to its initial value, plus the number of data receiving items acted 
upon. 

17. Either of the following situations causes an overflow condition: 

A. An UNSTRING is initiated, and the value in the data item 
referenced by data-name-10 is less than 1 or greater than 
the size of the data item referenced by data-name-1. 

B. If, during execution of an UNSTRING statement, all data 
receiving areas have been acted upon, and the data item 
referenced by data-name-1 contains characters which have 
not been examined. 

18. When an overflow condition exists, the UNSTRING operation is 
terminated. If an ON OVERFLOW phrase has been specified, the im- 
perative-statement is executed. If the ON OVERFLOW phrase is not 
specified, control is transferred to the next executable statement. 

19. The evaluation of subscripting and indexing for the identifiers 
is as follows: 
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A. Any subscripting or indexing associated with data-name-1, 
data-name-lO, data-name-11 is evaluated only once, im- 
mediately before any data is transferred as the result of 
the execution of the UNSTRING statement. 

B. Any subscripting or indexing associated with data -name- 2 
through data-name-6 is evaluated immediately before the 
transfer of data into the respective data item. 

20. Up to five delimiters may be specified. 
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USE 

FUNCTION: 

The USE statement specifies procedures for input-output error handling 
which are in addition to the standard procedures provided by the input - 
output control system. 



FORMAT: 

USE AFTER STANDARD < ^^^^^-^^^^ > PROCEDURE ON { 



/ exception' ) 

l ERROR J 



file -name 
INPUT 
OUTPUT 
I-O 



SYNTAX RULES: 

1. A USE statement, when present, must immediately follow a section 
header in the Declaratives section, followed by a period and a space. 
The remainder of the section must consist of zero, one, or more 
procedural paragraphs which define the procedures to be used. 

EXAMPLE: 

PROCEDURE DIVISION . 

DECLARATIVES . 

{section-name SECTION . USE sentence. 

paragraph -name, [sentence] ... ...} ... 



] 



2. The USE statement itself is never executed; rather, it defines 
the conditions for the execution of the USE procedures. 

3. A given file -name may not be associated with more than one 
DECLARATIVES section. 

4. The words EXCEPTION and ERROR are interchangeable. 

5. The files implicitly or explicitly referended in a USE state- 
ment need not all have the same organization or access. 

GENERAL RULES: 

1. The DECLARATIVES section is executed (by the PERFORM mechanism) 
after the standard 1-0 recovery procedures for the files designated, 
or after the invalid key condition arises on a statement lacking 
the INVALID KEY clause. 
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2. After execution o£ a USE procedure, control is returned to the 
invoking routine. 

3. Within a USE procedure, there must be no reference to any non- 
declarative procedures. Conversely, in the nondeclarative portion, 
there must be no reference to procedure -names which appear in the 
declarative portion, except that PERFORM statements may refer to 
the procedures associated with such a USE statement. 

4. Within a USE procedure, no statement may be executed which 
would result in the execution of a USE procedure previously invoked 
but not conpleted (that is, a USE procedure, which through pre- 
viously invoked, had not yet returned control to the invoking 
routine) . 
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WRITE 



FUNCTION: 



The WRITE statement releases a logical record for an output or I-O 
file. It can also be used for vertical positioning of lines within 
a logical page. 



FORMAT 1: 

WRITE record-name [FROM data-name-1] 



[ 




(integer LINE (s A 
PAGE r 



FORMAT 2: 

WRITE record-name [ FROM data-name-1] 
[ INVALID KEY imperative -statement] 

SYNTAX RULES: 

1. Format 1 can only be used for sequential files. 

2. Format 2 can only be used for Relative 1-0 and Indexed 1-0 files. 

3. Record-name and data name must not refer to the same storage area. 

4. Record-name is the 01 level record-name of a logical record, 
described in a Record Description entry in the File Section of the 
Data Division. 

GENERAL RULES: 

1. For both WRITE statement formats, the associated file must be 
open as OUTPUT or I-O. 

2. In Format 1, if the FROM option is taken, the information is 
moved to the record area prior to the WRITE. If the data being moved 
is longer than the receiving field, the data is truncated to the 
size of the receiving field. If the receiving field is longer than 
the data, the remaining area is filled with spaces. 
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3. In Format 1, if the ADVANCING option is taken, print control 
spacing is indicated. The first position in the record must be 
reserved as FILLER for the print control character being generated. 

A. If the BEFORE option is taken, a line is written before 
advancing . 

B. If the AFTER option is taken, spacing occurs, and then 
the line is written. 

C. Integer LINE(s) is the number of spacing lines required 
between data lines. Integer may be to 62. 

D. PAGE skips to a new page, then a line is Mrritten. 

If the ADVANCING option is not taken, the default is one line. 

4. In Format 1, the value of integer is as described in Table 16-4. 



Integer 


Carriage Control Actions 




1 
2 
3 
4 
5 
6 

62 
PAGE 


Overprinting 
Single spacing 
Double spacing 
Triple spacing 
4- line spacing 
5 -line spacing 
6 -line spacing 

62 -line spacing 

Skips to top of new page 



Table 16-4. Carriage Control Integer Values 



5. In Format 2 for Relative I-O files: prior to a WRITE statement, 
a valid unique value must be in the primary RECORD KEY data-name. 
If the FROM option is used, the unique value in RECORD KEY data- 
name must be in the relative location of data-name-1. If the 
primary key is not unique, the invalid statement or the DECLARATIVE 
section will be executed. Refer to Table 19-1 for Error Conditions. 

6. In Format 2 for Indexed 1-0 files: the INVALID KEY clause must 
be specified if the DECLARATIVE section is not applicable. The pro- 
gram will teniiinate if an error code condition arises (refer to 
Table 20-1.) 
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A. For Sequential Access: 

I£ a file is opened as OUTPUT, records are placed in the 
file in sequential order. The first record would have a 
position of 1, and the record number returned into the 
RELATIVE KEY data-name would be 1, etc. 

B. For Dynamic and Random Access: 

The value of the record number must be placed in the 
RELATIVE KEY data-name- 1. 
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Sequence 
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Sequence t 


A IB COBOL Statement ^€P1. 
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COMPILE SEQUENCE FOR REF2 
64R 

OK, COBOL REF2 -64R 

GO, 



0000 ERRORS 0000 WARNINGS (COBOL VER 04) 
_64V 

OK, COBOL REF2 -64V 
GO, 



ERRORS 0000 WARNINGS, P400/500 COBOL REV 14.0 <REF2> 
Print Listing File 

OK, SPOOL L-^REF2 
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LISTING File For Saitple Program REF2 Conpiled In 64V tfode 



PEV 14 COBOL 
(0001) 
(0002) 
(0003) 
(0004) 
(0005) 
(0006) 
(0007) 
(0008) 
(0009) 
(0010) 
(0011) 
(0012) 
(0013) 
(0014) 
(0015) 
(0016) 
(0017) 
(0018) 
(0019) 
(0020) 
(0021) 
(0022) 
(0023) 
(0024) 
(0025) 
(0026) 
(0027) 
(0028) 
(0029) 
(0030) 
(0031) 
(0032) 
(0033) 
(0034) 
(0035) 
(0036) 
(0037) 
(0038) 
(0039) 
(0040) 
(0041) 
(0042) 
(0043) 
(0044) 
(0045) 
(0046) 
(0047) 
(0048) 
(0049) 
(0050) 
(0051) 
(0052) 
(0053) 



SOURCE FILE: REF2 



09/20/77 11:51 



IDENTIFICATION DIVISION. 

PPOGRAM-ID. REF2. 

AUTHOR. PRIME COMPOTER. 

INSTALLATION. FRAMINGHAM. 

DATA-WRITTEN. SEPTEMBER, 1977. 

DATE-COMPILED. SEPTEMBER, 1977. 

REMARKS. THIS AREA IS USED TO DESCRIBE THE PROGRAM. 



* 



ENVIR0M4EIvn DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. PRIME. 
OBJECT-CCMHJTER. PRIME. 
SPECIAL-NAMES. CONSOLE IS TTY. 

ASCII IS NATIVE. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT LISI^FILE ASSIGN TO PRINTER. 
SELECT CAREhFILE ASSIGN TO PFMS. 
SELECT DIRECTORY-FILE ASSIGN TO PFMS, 
ORGANIZATIOI IS INDEXED 

ACCESS MODE IS DYNAMIC, RECORD KEY IS HiONE-NO, 
ALTERNATE RECORD KEY LAST^NAME 
ALTERNATE RECORD KEY STATE 
ALTERNATE RECORD KEY BIRTHD 
ALTERNATE RECORD KEY FIRST-NAME 
FILE STATUS IS FILE-STATUS. 



* 

* 



DATA DIVISION. 
FILE SECTION. 

FD LIST-FILE, LABEL RECORDS ARE OMITTED. 
01 PRINT-LINE, PICTURE X(100) . 
01 PRINT-LINEl. 

02 FILLER PIC X. 
02 PRINT-LIN PIC X(99). 
FD CARD-FILE, LABEL RECORDS ARE STANDARD 
VALUE OF FILE-ID IS 'INDATl'. 
01 CARD-IMAGE, PICTURE X(80) . 
01 CARD-Dl. 

02 DATA-Dl PIC X(64). 
02 PHONE-Dl PIC X(8). 
02 D2 PIC X(8). 

FD DIRECTORY-FILE, LABEL RECORDS ARE STANDARD, VALUE OF FILE-ID 
IS 'INDXFILE' 
OWNER IS 'LDAVIS'. 
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REV 14 COBOL 
(0054) 
(0055) 
(0056) 
(0057) 
(0058) 
(0059) 
(0060) 
(0061) 
(0062) 
(0063) 
(0064) 
(0065) 
(0066) 
(0067) 
(0068) 
(0069) 
(0070) 
(0071) 
(0072) 
(0073) 
(0074) 
(0075) 
(0076) 
(0077) 
(0078) 
(0079) 
(0080) 
(0081) 
(0082) 
(0083) 
(0084) 
(0085) 
(0086) 
(0087) 
(0088) 
(0089) 
(0090) 
(0091) 
(0092) 
(0093) 
(0094) 
(0095) 
(0096) 
(0097) 
(0098) 
(0099) 
(0100) 
(0101) 
(0102) 
(0103) 
(0104) 
(0105) 
(0106) 
(0107) 



SOURCE FILE: REF2 

01 DIRECTORY-RECORD. 

02 PHONE-NO PIC 

02 NAME. 

03 LAST-NME 
03 FILLER 
03 FIRST-NAME 
03 FILLER 
FILLER, PICTURE 
ADDRESS, PICTURE 



09/20/77 11:51 



02 
02 
02 
02 
02 
02 
02 
02 



FILLER, PICTURE 

CITY, PICTURE 

FILLER, PICTURE 

STATE, PICTURE 

BIRTHD, PICTtlRE 

FILLER, PICTURE 
01 DIR-1. 

02 DISPLAY-DIR 
02 FILLER 
01 SOME-Dl. 

02 Dl PIC 

02 03 PIC 

02 D4 PIC 

02 FILLER PIC 
WORKING-STORAGE SECTION. 



X(8). 

PIC X(14) . 
PIC X. 
PIC X(13). 
PIC XX. 
X. 

X(25). 
X. 

X(4). 
X(3). 
XX. 
9(6). 
X(20). 

PIC X(72). 
PIC X(28). 



X(8). 
X(64). 
X(8). 
X(20). 



77 
77 
77 
77 
77 
01 



01 



9 VALUE 0. 

X VALUE SPACE. 

9 VALUE 0. 

X(2) VALUE IS SPACE. 

X VALUE SPACE. 



GO-TO-READ PICTURE 

CREATE-UPDATE PICTURE 

GO-TO~NAME PICTURE 

FILE-STATUS PICTURE 

CHAR-1 PICTURE 

PERFORM-COUNTl. 

02 PERFORM-CCXJNT PIC 999. 

02 PER-CO REDEFINES PERFORM-COUNT 

PICTURE X, OCCURS 3 TIMES. 
WS-RECORD. 



01 



02 


WS-LAST-NAME PIC X (14). 


02 


FILLER 


PIC X. 


02 


WS-F IRST-NAME PIC X ( 1 3 ) . 


02 


FILLER 


PIC XXX. 


02 


WS-ADDRESS 


PIC X(25). 


02 


FILLER 


PIC X. 


02 


WS-CITY 


PIC X(4). 


02 


FILLER 


PIC XXX. 


02 


WS-PHONE-NO 


PIC X(8). 


02 


WS-S'I'ATE 


PIC XX. 


02 


WS-BIRTHD 


PIC X(6). 


HEADER. 




02 


FILLER 


PICTURE X VALUE SPACE. 


02 


H0 


PIC X (8 ) VALUE ' PHONE ' . 


02 


HI 


PICTURE X(4) VALUE IS 'NAME'. 


02 


FIT.T.FR 


PICTURE X(27) VAKJE IS SPACE. 


02 


H2 


PICTURE X(6) VALUE IS 'STREET'. 


02 


FILLER 


PICTURE X(20) VALUE IS SPACE. 


02 


H3 


PICTURE X(4) VALUE IS 'CITY'. 


02 


FILLER 


PICTURE X(3) VAUJE IS SPACE. 
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REV 14 COBOL 
(0108) 
(0109) 
(0110) 
(0111) 
(0112) 
(0113) 
(0114) 
(0115) 
(0116) 
(0117) 
(0118) 
(0119) 
(0120) 
(0121) 
(0122) 
(0123) 
(0124) 
(0125) 
(0126) 
(0127) 
(0128) 
(0129) 
(0130) 
(0131) 
(0132) 
(0133) 
(0134) 
(0135) 
(0136) 
(0137) 
(0138) 
(0139) 
(0140) 
(0141) 
(0142) 
(0143) 
(0144) 
(0145) 
(0146) 
(0147) 
(0148) 
(0149) 
(0150) 
(0151) 
(0152) 
(0153) 
(0154) 
(0155) 
(0156) 
(0157) 
(0158) 
(0159) 
(0160) 
(0161) 



SOURCE FILE: REF2 



09/20/77 11:51 



* 



PROCEDURi; DIVISION. 
START-PROGRAM. 

DISPLAY 'ENTER 1 TO CREATE NEW FILE'. 

DISPLAY 'ENTER 2 TO UPDATE OLD FILE'. 

ACCEPT CREATE-UPDATE. 

IF CREATE-UPDATE = '2' 

OPEN OUTPUT LIST-FILE 
GO TO UPDATE-ONLY. 
CREATE-FILE. 

MOVE SPACES TO WS-RECORD. 

OPEN INPUT CARD-FILE, OPEN OUTPUT LIST-FILE, 
DIRECTORY-FILE. 

WRITE PRINT-LINE FROM HEADER AFTER ADVANCING PAGE. 
REAEHNEXT. 

I^EAD CARD-FILE AT END GO TO LIST-DIRECTORY. 

MOVE CARD-IMAGE TO PRINT-LINE. 

WRITE PRINT-LINE. 

MOVE SPACES TO DIR-1. 

MOVE DATA-Dl TO D3. 

MOVE r«ONE-Dl TO Dl. 

MOVE D2 TO D4. 

WRITE DIRECTORY-RECORD 

INVALID KEY DISPLAY FILE-STATUS. 

GO TO READ-NEXT. 
LIST-DIRECTORY. 

CLOSE CARD-FILE, DIRECTORY-FILE. 

MOVE 'END OF CREATE FILE' TO PRINT-LINE. 

WRITE PRINT-LINE AFTER ADVANCING 3 LINES. 
UPDATE-ONLY. 

MOVE SPACES TO PRINT-LINE. 

DISPLAY 'END TEST ONE' 

OPEN I-O DIRECTORY-FILE. 

IF CREATE-UPDATE = '2' 

GO TO GET-NEXT-INQUIRY. 
LIST-DIR. 

MOVE LOW-VALUE TO PEIONE-NO. 

PERFORM LIST THRU LIST-DONE. 

MOVE LOW-VAmE TO LAST-NAME. 

PERFORM LISTl IHRU LIST-DONE. 

MOVE ICW-VALUE TO STATE. 

PERFORM LIST2 THRU LIST-DONE. 

MOVE ZEROS TO BIRTHD. 

PERFORM LIST3 THRU LIST-DONE. 

MOVE DOW-VALUE TO FIRST-NAME. 

PERFORM LIST4 THRU LIST-DONE. 
LIST-DIR-EXIT. 

EXIT. 
START-PAR. 

MOVE 'END OF TEST FOR START VERB' TO PRINT-LINE. 

Vvl^ITE PRINT-LINE AFTER ADVANCING 3 LINES. 

MOVE SPACES TO PRINT-LINE. 

DISPLAY 'END OF TEST TWO' . 
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(0162) 
(0163) 
(0164) 
(0165) 
(0166) 
(0167) 
(0168) 
(0169) 
(0170) 
(0171) 
(0172) 
(0173) 
(0174) 
(0175) 
(0176) 
(0177) 
(0178) 
(0179) 
(0180) 
(0181) 
(0182) 
(0183) 
(0184) 
(0185) 
(0186) 
(0187) 
(0188) 
(0189) 
(0190) 
(0191) 
(0192) 
(0193) 
(0194) 
(0195) 
(0196) 
(0197) 
(0198) 
(0199) 
(0200) 
(0201) 
(0202) 
(0203) 
(0204) 
(0205) 
(0206) 
(0207) 
(0208) 
(0209) 
(0210) 
(0211) 
(0212) 
(0213) 
(0214) 
(0215) 



SOURCE FILE: REF2 09/20/77 11:51 

GO TO GET-NEXT-INQUIRY. 
LIST. START DIRECTORY-FILE KEY IS NOT LESS THAN PHONE-NO. 

WRITE PRINT-LINE FROM HEADER AFTER ADVANCING PAGE. 

GO TO READ-NEXT-DIRECTORY-RECORD. 
LISTl. START DIRECTORY-FILE KEY IS NOT LESS THAN LAST-NAME. 

WRITE PRINT-LINE FRCM HEADER AFTER ADVANCING PAGE. 

GO TO READ-NEXT-DIRECTORY-RECORD. 
LIST2. START DIRECTORY-FILE KEY IS NOT LESS THAN STATE. 

WRITE PRINT-LINE FROM HEADER AFTER ADVANCING PAGE. 

GO TO READ-NEXT-DIRECTORY-RECORD. 
LISTS. START DIRECTORY-FILE KEY IS NOT LESS THAN BIRTHD. 

WRITE PRINT-LINE FROM HEADER AFTER ADVANCING PAGE. 

GO TO READ-NEXT-DIRECTORY-RECORD. 
LIST4. START DIRECTORY-FILE KEY IS NOT LESS THAN FIRST-NAME. 

WRITE PRINT-LINE FROM HEADER AFTER ADVANCING PAGE. 
READ-NEXT-DIRECTORY-RECORD. 

READ DIRECTORY-FILE NEXT RECORD AT END GO TO 
LIST-DONE. 

MOVE DIRECTORY-RECORD TO PRINT-LIN. 

WRITE PRINT-LINE. 

GO TO READ-NEXT-DIRECTORY-RECORD. 
LIST-DONE. 

EXIT. 



GET-NEXT-INOJIRY. 

DISPLAY 'ENTER TRAN TYPE'. 



DISPLAY ' # 


= READ FILE SEQ' . 


DISPLAY • + 


= ADD' . 


DISPLAY • - 


= DELETE' . 


DISPLAY ' / 


= CHANGE'. 


DISPLAY ' * 


= QUIT' . 


ACCEPT CHAR- 


■1 FROM TTY. 


IF CHAR-1 = 


'+', GO TO ADDITION. 


IF CHAR-1 = 


•-', GO TO DELETION. 


IF CHAR-1 = 


'/' , GO TO CHANGE. 


IF CHAR-1 = 


'*', GO TO WRAPUP. 


IF CHAR-1 = 


•#', GO TO READ-FILE. 



DISPLAY 'INVALID TRANS TYPE = ' CHAR-1. 
DISPLAY 'TRY AGAIN'. 
GO TO GET-NEXT-IN(PIRY. 
NO-SUCH-NAME. 

DISPLAY ' NO SUCH RECORD = ' DISPLAY-DIR. 
GO TO GET-NEXT-INQUIRY. 






ADDITION. 

DISPLAY 'ENTER DATA RECORD FOR ADD'. 
PERFORM FORMAT^INPUT. 
PERFORM MOVE-REC. 

WRITE DIRECTORY-RECORD INVALID KEY 
DISPLAY FILE-STATUS 
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(0216) 
(0217) 
(0218) 
(0219) 
(0220) 
(0221) 
(0222) 
(0223) 
(0224) 
(0225) 
(0226) 
(0227) 
(0228) 
(0229) 
(0230) 
(0231) 
(0232) 
(0233) 
(0234) 
(0235) 
(0236) 
(0237) 
(0238) 
(0239) 
(0240) 
(0241) 
(0242) 
(0243) 
(0244) 
(0245) 
(0246) 
(0247) 
(0248) 
(0249) 
(0250) 
(0251) 
(0252) 
(0253) 
(0254) 
(0255) 
(0256) 
(0257) 
(0258) 
(0259) 
(0260) 
(0261) 
(0262) 
(0263) 
(0264) 
(0265) 
(0266) 
(0267) 
(0268) 
(0269) 



SOURCE FILE: REF2 09/20/77 11:51 
DISPLAY DISPLAY-DIR. 
GO TO GET-NEXT-INQUIRY. 



* 



DELETION. 

DISPLAY 'ENTER HIONE NUMBER TO BE DEI^TED' . 

ACCEPT PHONE-NO FROM TTY. 

READ DIRECTORY-FILE INVALID KEY GO TO 

NO-SUCH-NAME. 
DELETE DIRECTORY-FILE RECORD INVALID KEY GO TO 

NO-SUCH-NAME. 
GO TO GET-NEXT- INQUIRY. 



CHANGE. 



DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 



•ENTER KEY TO BE CHANGED' . 



■LAST-NAME 
'STATE 
•BIRTHD 
'FIRST-NAME 



1' 
2' 
3' 
4' 



ACCEPT GO-TO-NAME. 

GO TO READ-ALTl READ-ALT2 READ-ALT3 READ-ALT4 

DEPENDING ON GO-TO-NAME. 
DISPLAY 'WFC»^G TYPE ENTERED TRY AGAIN'. 
GO TO GET-NEXT-INQUIRY. 



REAI>ALT1. 

DISPLAY 'ENIER LAST NAME' . 

ACCEPT WS-LAST-NAME. 

MOVE SPACES TO DIRECTORY-RECOyD. 

MOVE WS-LAST-NAME TO LAST-NAME. 

READ DIRECTORY-FILE KEY IS LAST-NAME 

INVT^ID KEY DISPLAY 'LAST-NAME = ' 
DISPLAY 'STATUS = ' FILE-STATUS 
DISPLAY DISPLAY-DIR 
GO TO GET-NEXT-INQUIRY. 

GO TO CHANGE-RECORD. 



LAST-NAME 



READ-ALT2. 

DISPLAY 'ENTER STATE '. 

ACCEPT WS-STATE. 

MOVE SPACES TO DIRECTORY-RECORD. 

MOVE WS-STATE TO STATE. 

READ DIRECTORY-FILE KEY IS STATE 

INVALID KEY DISPLAY, 'STATE = ' STATE 

DISPLAY 'STATUS = ' FILE-STATUS 

DISPLAY DISPLAY-DIR 

GO TO GET-NEXT-INQUIRY. 
GO TO CHANGE-RECORD. 

k 

READ-ALT3. 

DISPLAY 'ENTER BIRTHDAY'. 

ACCEPT WS-BIRTHD. 

MOVE SPACES TO DIRECTORY-RECORD. 
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(0270) 
(0271) 
(0272) 
(0273) 
(0274) 
(0275) 
(0276) 
(0277) 
(0278) 
(0279) 
(0280) 
(0281) 
(0282) 
(0283) 
(0284) 
(0285) 
(0286) 
(0287) 
(0288) 
(0289) 
(0290) 
(0291) 
(0292) 
(0293) 
(0294) 
(0295) 
(0296) 
(0297) 
(0298) 
(0299) 
(0300) 
(0301) 
(0302) 
(0303) 
(0304) 
(0305) 
(0306) 
(0307) 
(0308) 
(0309) 
(0310) 
(0311) 
(0312) 
(0313) 
(0314) 
(0315) 
(0316) 
(0317) 
(0318) 
(0319) 
(0320) 
(0321) 
(0322) 
(0323) 



SOURCE FILE: REF2 09/20/77 11:51 
MOVE WS-BIR™D TO BIPTHD. 
READ DIRECTORY-FILE KEY IS BIRTHD 
INVALID KEY DISPLAY 'BIRTHD = ' 
DISPLAY 'STATUS = ' FILE-STATUS 
DISPLAY DISPLAY-DIR 
GO TO GET-NEXT-INQUIRY. 
GO TO CHANGE-RECORD. 



READ-ALT4. 

DISPLAY 'ENTER FIRST^NAME'. 

ACCEPT WS-FIRST-NAME. 

MOVE SPACES TO DIRECTORY-RECORD. 

MOVE WS-FIRST-NAME TO FIRST-NAME. 

READ DIRECTORY-FILE KEY IS FIRST-NAME 
INVALID KEY DISPLAY 'FIRST-NAME = 
DISPLAY 'STATUS = ' FILE-STATUS 
DISPLAY DISPLAY-DIR 
GO TO GET-NEXT-INQUIRY. 



BIRTHD 



FIRST-NAME 






CHANGE-RECORD. 

DISPLAY DISHAY-DIR. 
PERFORM FORMAT-INPUT. 



MOVE-REC. 

IF WS-RECORD = SPACES 

DISPLAY 'NO DATA ENTERED TRY AGAIN' 

GO TO GET-NEXT-INQUIRY. 
IF WS-LAST-NAME NOT = SPACES 

MOVE WS-LAST-NAME TO LAST-NAME. 
IF WS-FIRST-NAME NOT = SPACES 

MOVE WS-FIRST-NAME TO FIRST-NAME. 
IF WS-ADDRESS NOT = SPACES 

MOVE WS-ADDRESS TO AEORESS. 
IF WS-CITY NOT = SPACES 

MOVE WS-CITY TO CITY. 
IF WS-PHONE-NO NOT = SPACES 

MOVE WS-PHONE-NO TO PHONE-NO. 
IF WS-STATE NOT = SPACES 

MOVE WS-STATE TO STATE. 
IF WS-BIRTHD NOT = SPACES 

MOVE WS-BIRTHD TO BIRTHD. 
MOVE-EXIT. 

EXIT. 

REWT^ITE-RECORD. 

REWRITE DIRECTORY-RECORD INVALID KEY 

GO TO NO-SUCH-NAME. 
GO TO GET-NEXT-INQUIRY. 



* 



READ-FILE. 
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(0324) 
(0325) 
(0326) 
(0327) 
(0328) 
(0329) 
(0330) 
(0331) 
(0332) 
(0333) 
(0334) 
(0335) 
(0336) 
(0337) 
(0338) 
(0339) 
(0340) 
(0341) 
(0342) 
(0343) 
(0344) 
(0345) 
(0346) 
(0347) 
(0348) 
(0349) 
(0350) 
(0351) 
(0352) 
(0353) 
(0354) 
(0355) 
(0356) 
(0357) 
(0358) 
(0359) 
(0360) 
(0361) 
(0362) 
(0363) 
(0364) 
(0365) 
(0366) 
(0367) 
(0368) 
(0369) 
(0370) 
(0371) 
(0372) 
(0373) 
(0374) 
(0375) 
(0376) 
(0377) 



SOURCE FILE: REF2 09/20/77 11:51 
MOVE ZEROS TO PERFORM-COUNT. 
DISPLAY 'ENTER NIWBER OF RECORDS TO BE READ' 
ACCEPT PERFORM-COUNT. 
IF PERFORM-COUNT = ZEROS 

DISPLAY 'NO RECORD COUNT ENTERED' 

GO TO GET-NEXT-INQUIRY. 
IF PERFORM-COUNTl NOT NUMERIC 

NEXT SENTENCE 
ELSE 

GO TO READ-TYPE. 
IF PER-CO (1) NOT NUMERIC AND 

PER-CO (2) NOT NUMERIC AND 

PER-CO (3) NOT NWERIC 

MOVE 002 TO PERFORM-COUNT 

GO TO READ-TYPE. 
IF PER-CO (1) NUMERIC AND 

PER-CO (2) NOT NUMERIC AND 

PER-CO (3) NOT NUMERIC 

MOVE PER-CO (1) TO PER-CO (3) 

MOVE '0' TO PER-CO (1) PER-CO (2) 

GO TO READ-TYPE. 
IF PER-CO (1) NUMERIC AND 

PER-CO (2) NUMERIC AND 

PER-CO (3) NOT NIMERIC 

MOVE PER-CO (2) TO PER-CO (3) 

MOVE PER-CO (1) TO PER-CO (2) 

MOVE '0' TO PER-CO (1) . 



READ-TYPE. 






DISPLAY 


'ENTER KEY TO 


BE 


DISPLAY 


'PHCWE-NO 


1'. 


DISPLAY 


'LAST-NAME = 


2'. 


DISPLAY 


'STATE 


3'. 


DISPLAY 


•BIRTHD 


4'. 


DISPLAY 


'FIRST-NAME = 


5'. 



ACCEPT QO-TO-READ. 

IF QO-TO-READ NOT NWERIC 

DISPLAY 'INVALID KEY TRY AGAIN' 

GO TO REAI>-TYPE. 
GO TO REAEHl READ-2 READ-3 READ-4 READ-5 

DEPENDING ON QO-TO-READ. 



READ-1. 



READ-2. 



MOVE LOW-VALUES TO PHONE-NO. 

START DIRECTORY-FILE KEY IS NOT LESS THAN EHONE-NO. 

GO TO READ-FILE-GO. 

MOVE LOW-VALUES TO LAST-NAME. 

START DIRECTORY-FILE KEY IS NOT LESS "mAN LAST-NAME, 

GO TO READ-FILE-GO. 
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(0378) 
(0379) 
(0380) 
(0381) 
(0382) 
(0383) 
(0384) 
(0385) 
(0386) 
(0387) 
(0388) 
(0389) 
(0390) 
(0391) 
(0392) 
(0393) 
(0394) 
(0395) 
(0396) 
(0397) 
(0398) 
(0399) 
(0400) 
(0401) 
(0402) 
(0403) 
(0404) 
(0405) 
(0406) 
(0407) 
(0408) 
(0409) 
(0410) 
(0411) 
(0412) 
(0413) 
(0414) 
(0415) 
(0416) 
(0417) 
(0418) 
(0419) 
(0420) 
(0421) 
(0422) 
(0423) 
(0424) 



SOURCE FILE: 
READ-3. 



REF2 



09/20/77 11:51 



READ-4. 



MOVE LOW-VALUES TO STATE. 

START DIRECTORY-FILE KEY IS MOT LESS THAN STATE. 

GO TO READ-FILE-GO. 

MOVE ZEROS TO EIRTHD. 

START DIRECTORY-FILE KEY IS NOT LESS THAN BIRTHD. 

GO TO READ-FILE-QO. 
READ-5. 

MOVE DOW-VALUES TO FIRST-NAME. 

START DIRECTORY-FILE KEY IS NOT LESS THAN FIRST-NAME. 
READ-FILE-GO. 

READ DIRECTORY-FILE NEXT RECORD 

AT END MOVE ZEROS TO PERFOK^-COUNT 
GO TO PEAD-FILE-EXIT. 

DISPLAY DISPLAY-DIR. 
READ-FILE-EXIT. 

EXIT. 



* 
* 
* 
* 



WRAPUP. 



PERFORM LIST-DIR. 

MOVE 'END OF INDEXED TEST TO CHANGE FILE' TO PRINT-LINE. 

DISPLAY 'END OF INDEXED TEST'. 

CLOSE LIST-FILE, DIRECTORY-FILE. 

STOP RUN. 



* 
* 



FOM^AT-INPUT. 

MOVE SPACES TO WS-RECORD. 

DISPLAY 'ENTER LAST NAME'. 

ACCEPT WS-LAST-NAME. 

DISPLAY 'ENTER FIRST NAME'. 

ACCEPT WS-FIRST-NAME. 

DISPLAY 'ENTER AIXiRESS '. 

ACCEPT WS-AICRESS. 

DISPLAY 'ENTER CITY '. 

ACCEPT WS-CITY. 

DISPLAY 'ENTER PHONE NUMBER '. 

ACCEPT WS-PHCWE-NO. 

DISPLAY 'ENTER STATE XX'. 

ACCEPT WS-STATE. 

DISELAY 'ENTER BIRTHDAY MMDDYY' 

ACCEPT WS-BIRTHD. 



0000 ERRORS 0000 WARNINGS, P400/500 COBOL REV. 14.0 <REF2> 
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LOAD SEQUENCE FOR REF2 

64R 

OK, HILOAD 
$ MO D64R 
$ CO 120000 
$ LO B<-REF2 
$ AU 20 



$ 


LI 


COBKID 


$ 


LI 




LC 






$ 


SAVE 


*REF2 



$ 
64V/SEG 


QUIT 




OK 


, SEG 




GO 


> 




# 


VLOAD #REF2 


$ 


LO B^REF2 


$ 


LIB 


VCOBLB 


$ 


LIB 


VKDALB 



$ LI_ 
LC 

$ SAVE 
$ QUIT 



set mode 
move common 



load COBOL MIDAS library 
load FORTRAN library 
load complete 
save memory image 
return to PRIMOS 



load SEG COBOL library 

load SEG, COBOL MIDAS library 

load the FORTRAN library 

load complete prompt 

the memory image is saved as #REF2 

return to PRIMOS 
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CREATK SEQUENCE FOR REF2 

The following represents the minimum dialogue to create the MIDAS template 
for sample program REF2 (underlining indicates user response) : 

OK, CREATK 



MINIMUM OPTIONS? YES 
FILENAME? PI RECTORY- FILE 

NEW FILE? YES 
DIRECT ACCESS? m 
KEY TYPE: B 
KEY SIZE=: B 64 

DATA SIZE=: 50 

SECONDARY INDEX 

INDEX NO. ? 1 

DUPLICATE KEYS PERMITTED? YES 

KEY TYPE: B 

KEY SIZE=: B 112 

USER DATA SIZE=: 

INDEX NO. ? 2 

DUPLICATE KEYS PERMITTED? YES 

KEY TYPE: B 

KEY SIZE=: B 16 

USER DATA SIZE=: _0 

INDEX NO. ? 3 

DUPLICATE KEYS PERMITTED? YES 

KEY TYPE: B 

KEY SIZE=: B 48 



The name of the file in the COBOL 
program l^ilich is to be indexed. 



Key type is Binary 

Eight times the characters in the 
primary key, mONE-NO. 
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USER DATA SIZE=: 

INDEX NO. ? 4 

DUPLICATE KEYS PERMITTED? YES 

KEY TYPE: B 

KEY SIZE=: 104 

USER DATA SIZE=: 

INDEX NO? (CR) 



RET. 16-90 
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EXECUTE SEQUENCE FOR REF2 
64R 

OK, R *REF2 

ENTER FILENAME AM) UNIT 

> INDAT1=INDAT1 

> INDXFILE=DIRECTORY- FILE 



64V 



>/ 

OK, SEG »REF2 

ENTER FILENAME AND UNIT 

> INDAT1=INDAT1 

> INDXFILE=DIRECTORY-FILE 

>/ 
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SECTION 17 
INTER-PROGRAM COMMUNICATION 



DEFINITION 

Inter-Program Communication provides a facility by which a program can 
communicate with one or more programs. Control may be transferred from 
one program to another within a run unit, and both programs may have 
access to the same data items. 

Inter-module communication of data is made possible through the use of 
the LINKAGE SECTION of the Data Division, and by the CALL statement and 
USING list appendage to the Procedure Division header of a subprogram 
module . 
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LINKAGE SECTION 



The LINKAGE SECTION in a program is meaningful if, and only if, the 
object program is to function under the control of a CALL statement, 
and the CALL statement in the calling program contains a USING phrase. 

The LINKAGE SECTION describes data made available in memory from another 
program module, but which is to be referred to in both the calling and 
the called program. 

No space is allocated in the program for data items referenced by data- 
names in the Linkage Section of that program. Procedure Division re- 
ferences to these items are resolved at load time, equating the 
references in the called program to the location used in the calling 
program by passing address parameters. Thus, Record Description entries 
in the LINKAGE SECTION provide data-names by which data- areas reserved 
in memory by other programs may be referenced. 

Data items defined in the LINKAGE SECTION of the called program may be 
referenced in the Procedure Division of that called program only if: 
they are specified as operands of the USING phrase of the Procedure 
Division header or are subordinate to such operands, and the object 
program is under the control of a CALL statement which specifies a 
USING phrase (see the example at the close of this section) . 

The structure of the LINKAGE SECTION is that described for the WORKING- 
STORAGE SECTION. 

Any Record Description clause may be used to describe items in the 
LINKAGE SECTION except that: 

1. The VALUE clause may not be specified for other than level 88 
items; 

2. Data-names used in the LINKAGE SECTION must be unique (may not 
be qualified) ; 

3. Level 01 and 77 items must start on a computer word boundary. 
The programmer must ensure proper alignment between an argument 
(pointer to data) in a CALL statement and the corresponding data- 
name in a USING list on a subprogram Procedure header; 

4. Items in the LINKAGE SECTION which bear no hierarchy re- 
lationship to one another need not be grouped into records. These 
are classified and defined as noncontiguous elementary items. 
They may be defined in separate level 77 entries. 

Such Data Description entries must include a level -number 77, a 
data -name, and a PICTURE clause or the USAGE IS INDEX clause. 
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In addition to LINKAGE SECTION entries, inter-program communication re- 
quires certain Procedure Division entries. 

Using List Appendage to Procedure Header 

The Procedure Division header o£ a CALLable subprogram is written as: 

PROCEDURE DIVISION [ USING data-name. . . ] 

where each o£ the data-name operands is an entry in the LINKAGE SECTION 
of the subprogram, having level 77 or 01. Addresses are passed from 
an external CALL in one-to-one correspondence to the operands in the 
USING list of the Procedure header so that data in the calling program 
may be manipulated in the subprogram. 

CALL Statement 

The CALL statement format is: 

CALL 'literal' [USING data-name -1 data-name-n] 

where literal is a subprogram name defined as the PROGRAM- ID of a sep- 
arately compiled program and must be enclosed in quote marks. (The 
relationship of literal and PROGRAM- ID is illustrated in the example 
at the end of this section.) 

Data-name (s) in the USING list are made available to the called sub- 
program by passing addresses to the subprogram; these addresses are 
assigned to the LINKAGE SECTION items declared in the USING list of 
that subprogram. Therefore, the number of data-names specified in 
matching. CALL and Procedure Division USING lists must be identical. 
At this time, data-name-n must not exceed 15. 

NOTE : Correspondence between caller and callee lists are positional, not 
by identical spelling of names. For additional information, see CALL 
statement in the PROCEDURE DIVISION SECTION. 

EXIT PROGRAM Statement 

The EXIT PROGRAM statement, appearing in a called subprogram, causes 
control to be returned to the next executable statement after a CALL 
in the calling program. This statement must be a paragraph by itself. 

ENTER Statement 

An ENTER statement is classified as a compiler-directing statement; it 
acts as a modifier to a subsequent CALL statement. 

A subprogram which is called may have been written in COBOL, FORTRAN, 
or ASSEMBLER language. The ENTER statement provides the means to 
identify the language in which a subprogram is written. 
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The general format is: 

/"COBOL 1 
ENTER ^ AS^feLERj 

ENTER ASSEMBLER tells the conpiler that the ensuing callee is not a 
COBOL subprogram, 

ENTER COBOL tells the compiler that the ensuing callee is a COBOL 
subprogram. 

ENTER COBOL may also be used following a CALL statement. This tradi- 
tional usage is optional; after any CALL statement, ENTER COBOL is 
assumed. 
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EXAMPLE; 



Filename = CALLER 



IDENTIFICATION DIVISION. 
PROGRAM- ID. CALLl. 
ENVIRONMENT DIVISION. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 
01 WS-ITEM PICTURE 9(5) 
PROCEDURE DIVISION. 
FIRST-PARAGRAPH. 

CALL 'CALLEDl' 

STOP RUN. 



USING WS-ITEM. 



Parameter being passed 



The name in quotations must be 
the Program- Id-name, not the 
file -name. 



Filename = CALLED 



IDENTIFICATION DIVISION. 

PROGRAM- ID. CALLEDl . 

ENVIRONMENT DIVISION. 

DATA DIVISION. 

WORKING- STORAGE SECTION. 

01 WS-TEST PICTURE 9(5). 

LINKAGE SECTION. 

01 WS-ITEM PICTURE 9(5). 

*WS-ITEM MUST BE DESCRIBED IN THE SAME MANNER 

*IN BOTH THE CALLING AND THE CALLED PROGRAM. 

*ONLY 01 AND 77 LEVEL ITEMS MAY BE CODED HERE. 

PROCEDURE DIVISION USING W S-ITEM . 

FIRST-PARAGRAPH. 

MOVE WS-TEST TO WS-ITEM. 
EXIT PROGRAM. 
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SECTION 18 
TABLE HANDLING 



DEFINITION 

Table Handling provides a capability for defining tables of contiguous 
data items and accessing those items relative to their position in 
the table. The OCCURS clause is the language facility provided for 
specifying how many times an item is to be repeated. Each item may 
be identified through use of a subscript or an index. 
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DATA DIVISION 
OCCURS 

The OCCURS claiise eliminates the need for separate entries for repeated 
data items. Further, it supplies information required for the applica- 
tion of subscripts or indices. The OCCURS clause cannot be used on a 
level 11 or 88. 

Data Description clauses associated with an item whose description 
includes an OCCURS clause apply to each repetition of the item being 
described. When OCCURS is used, the data-name which is the defining 
name of the entry must be subscripted (or if the INDEXED BY phrase is 
specified, must be indexed) whenever it appears in the Procedure 
Division. If the data-nama applies to a group item, all data-names 
belonging to the group must be subscripted (or indexed) whenever they 
are used. 

ITie OCCURS clause format is: 

[ OCCURS integer TIMES [ INDEXED BY index-name- 1 

[index-name- 2 ] ] ] 

I NDEXED BY 

The format of the INDEXED BY clause appears directly above. Index-name 
is not declared in the usual method of: INDEXED BY . 

The format of the INDEXED BY phrase is: 

[ INDEXED BY index-name -1 [index-name- 2 . . . ] ] 

when used, the INDEXED BY phrase is appended to the OCCURS clause. It 
is required if the subject of this entry, or one subordinate to this 
entry, is to be referred to by indexing. The index-name identified by 
this phrase is not defined elsewhere; allocation and format are defined 
by the compiler. 

For this reason, index-name is not declared in the usual method of: 
level number, name, Data Description clauses. Rather, the declaration 
is implicit in the appearance of an "INDEXED BY index-name" appendage 
to an OCCURS clause. 

Index-name is equivalent to an index- item; it must be uniquely named. 
This compiler assigns a full word for each index-name defined. 

An index item may only be referred to by a SET statement, a CALL state- 
ment USING list, a Procedure header USING list, as the variation item 
in PERFORM VARYING, by a SEARCH statement, or in a relational condition. 
In all cases, the process is equivalent to dealing with a binary word 
integer subscript. A maximum of 3 indexes may be used on any given 
data-name . 
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Relative indexing may be specified wherever indexing can be specified. 
In this instance, index -name is followed by one of the operators + or -, 
followed by an unsigned, integer numeric literal, all delimited by the 
balanced pair of separators left parenthesis and right parenthesis. 

The occurrence number resulting from relative indexing is determined by 
incrementing or decrementing by the value of the literal, the occur- 
rence number represented by the value of the index. 

When a statement is executed which refers to an indexed table element, 
the value in the associated index must neither be less than zero, nor 
greater than the highest occurrence number of an element in the table. 
This restriction applies equally to indexing and relative indexing. 

The general format for indexing is: 



J data-name ^ r Tindex-name-l [ {±} literal -2] I 
?J ^ \_literal-l J 



)j:ondi t ion - name^ 

. /index-name -2 [ {±} literal-4]l 
\literal-3 J 



Tindex-name-S [ {±} literal-6]l 
\_literal-5 J 



...) 
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Subscripting 

When an OCCURS clause is specified for an item in the Data Division, 
that item must be subscripted or indexed whenever it is used. 

Subscripting provides the facility for referring to those data items 
in a table or list which have not been assigned individual data-names. 

The format is: 

data-name fsubscript-l [,subscript-2 [,subscript-3]]) 

The subscript can be represented either by a positive numeric literal 
or by a data-name. Such a data-name must be a numeric, elementary item 
which represents an integer. The data-name as subscript may be quali- 
fied but not itself subscripted. 

The subscript data-name may be signed, but the value must be positive. 
The lowest value which the subscript can contain is 1 (this would point 
to the first occurrence of the data within a table.) Thus, the sub- 
script contains the numeric 'OCCURS' number within a table; its value 
must not exceed the 'OCCURS' integer for the table with which it is 
associated. The subscript can be used on any table. 

EXAMPLE: 

01 ARRAY 

03 ELEMENT, OCCURS 3, PICTURE S9(4), SIGN TRAILING SEPARATE. 

The example above would be allocated storage as shown below: 



ARRAY consisting of fifteen 
characters; each item has 4 
digits and a separate sign. 



ELEMENT 


CD 


ELEMENT 


(2) 


ELEMENT 


(3) 



A data-name may not be subscripted if it is being used for any of the 
following functions : 

1. IVhen it is being used as a subscript; 

2. When it appears as the defining name of a Data Description 
entry; 

3. When it appears as data-name -2 in a REDEFINES clause. 
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A majcimum of three (3) subscripts can be used on any given data item. 
Multiple subscripts are separated by a comma. 

A subscript value is changed in the Procedure Division via MOVE, ADD, 
or SUBTRACT verbs . The SET verb cannot be used on a subscript data- 
name. 



PROCEDURE DIVISION 

SET Statement 

The SET statement permits the manipulation o£ index -names and index 
items, for table -handling purposes. There are two formats: 

FORMAT 1: 



(index-name -A Jindex-name-S 

data-name-1 J ■ • • TO < data-name-3 
"^ I integer -1 



FORMAT 2: 



SET 



/index -name - 4^ up 

^-4 J • • • pOU X.I integer- 2 



\^data-name-4 J * • • poWN BY 



index-name -6] 
data -name -6 



Format 1 is equivalent to moving the value in index-name-3, data-name-3, 
or integer- 1 to multiple receiving fields written immediately after the 
SET verb. 

Format 2 is equivalent to reduction (DOWN) , or increase (UP) , applied 
to each of the quantities written immediately after the SET verb. The 
amount of the reduction or increase is specified by a name or value 
immediately following the word BY. 

An index-name should only apply to the OCCURS which define it. 

SEARCH statement 

The SEARCH statement is used to search a table for a table element 
which satisfies the specified condition. The associated index-name is 
adjusted to indicate that table element. 
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The format is; 

^ARCH data-name-1 [ VARYING (^SJ^?^;?i] 1 

[; mm condition- 1 j ^^^^ SENTENCE j 

r TniT-M J-*- o fimperative-statanent-3\ 
[ ; We^ condition- 2 I nEXT SENTENCE j 

A SEARCH statement enables a serial type of search operation, start- 
ing with the current index setting. 

Data-name-1 must not be subscripted or indexed, but its description 
must contain an OCCURS clause and an INDEXED BY clause. Data-name-2, 
when specified, must be described as USAGE IS INDEX, or as a numeric 
elementary item without any positions to the right of the assumed 
decimal point. 

A coirplete discussion of the SEARCH verb is presented in Section 16, 
Procedure Division. 
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SECTION 19 
INDEXED SEQUENTIAL FILES 



DEFINITION 

The indexed sequential system Incorporates the concept o£ accessing data 
selectively in a sequentially structured file. (Only the index which 
points to the data is sequential.) The data base is created in ascending 
sequential order on a direct access device, and concurrently a hierarchy 
o£ indices is constructed. The indices can be used to directly locate a 
given record within the file. 

The sequence of the indices relating to a record depends on a field within 
the data records which is specified by the programmer in a RECORD KEY 
clause. The record key(s) are the elonents which identify each record in 
a file. 
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F I LE CONTROL 

FORMAT: 

SELECT file-name ASSIGN TO PMS 
ORGANIZATION IS INDEXED 



[ACCESS MODE IS 



fsEOUENTIAL 



DYNAMIC 



RECORD KEY IS data-name-1 

[ ALTERNATE RECORD KEY IS data-name- 2 [WITH DUPLICATES] ] . . . 

[FILE STATUS IS data-name- 3] 

GENERAL RULES: 

1. SELECT file -name 

The SELECT clause specifies the name of the indexed sequential file. 
Refer to Environment Division for rules. 

2. ORGANIZATION IS INDEXED 

This clause specifies that the file named in the SELECT statement 
contains data organized by indices, and that it is to be processed 
by the Multiple Index Data Access System, MIDAS. 



3. [ACCESS mm is < 



SEQUENTIAL 
RANDOM } ] 
DYNAMIC 



The ACCESS MODE clause specifies how an indexed file is written or 
retrieved. 

A. SEQUENTIAL 

If access mode is not specified, the default is sequential. 
This access mode specifies that records will be written or 
retrieved sequentially. When a WRITE statement is used, the 
record must be submitted in ascending sequence by RECORD KEY 
value. A READ statanent retrieves the records sequentially. 
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B. RANDOM 



When RANDCM is specified, the records are to be written or 
retrieved randonly, based on the value placed in the RECORD 
KEY field prior to a READ or WRITE. The canplete RECORD KEY 
value must be placed in data-name-n, prior to a READ, otherwise 
the record will not be found. Random mode precludes a 
sequential READ or WRITE. 

C. DYNAMIC 

When DYNAMIC access method is specified, a program can read 
or write randomly or sequentially. 

4. RECORD KEY IS data ntme-1 

The RECORD KEY clause specifies the data iton within each record which 
is used for the primary index. 

A. Data-name- 1 must be defined in the Record Description FD entry. 

B. Data-name-1 must be the first entry in the Record Description- 
Multiple Record Descriptions must have the same corresponding 
data description for the record key. 

C. Data-name-1 must not be specified with an OCCURS clause, or 
be contained within a group affected by an OCCURS clause. 

D. Data-name-1 must not be specified with a P character in its 
PICTURE clause, with a separator sign (/) . 

E. Data-name-1 must have the same description and relative location 
as when the file was created. 

F. Data-name-1 cannot exceed 32 characters. 

G. The value contained within data-name-1 must be unique, duplicates 
are invalid. 

5. [ALTERNATE RECORD KEY IS data-name-2 [WITH DUPLICATES] ] 



This key field allows secondary indices. There may be up to 5 additional 
key fields. 

See Rules C through F under RECORD KEY. 

Seconday indices cannot be embedded within the primary index. 
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Specification of WITH DUPLICATES for an ALTERNATE RECORD allows keys 
containing the same value to be placed in the file. WITH DUPLICATES 
must be specified when the file template is created; it cannot be 
changed at the program level. 

6. [FILE STATUS IS data-name-3] 

The FILE STATUS is a two- character (one word) unsigned field described 
in the Working -Storage section. After each access to the operating 
system, a status code is placed in this field. For a successful read 
or write, etc., the status code contains 00. If the INVALID KEY or 
DECLARATIVES were involved, the error status code is returned. The 
progranmer then can determine what action to take. Refer to the 
following table for error codes: 
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INDEXED SEQUENTIAL FILES 



FILE 
ORGANIZATION 




STATUS KEY 1 




STATUS KEY 2 


^Indexed 





- Successful completion 





- No further information 


1 


- End of file^ 





- No further information 


2 


- Invalid key 


1 


- Sequence error^ 


3 


- No record found® 


4 


- Boundary violation^ 


3 


- Permanent I-O error^ 





- No further information 


9 


- Implementor - defined 





- Locked record^ 


1 


- Unlocked record" 


2 


- Value in key already in the database and 
duplicates not specified when CREATK 
was TunA 


3 


- Indices specified in the program do not 
match indices used when CREATK was run. 


5 


- Index size does not size used on 
creation. 


6 


- The disk is full. 


9 


- System error, call analyst. 


-r ^End o£ file. A READ statement was unsuccessful because there was no logical next 
record in the file. 

^Permanent I-O error. An I-O statement was unsuccessful because of an I -0 error, 

such as data check, parity error, or transmission error. For sequential 
file only, a boundary violation. 

*^Boundary violation. Attempt was made to read or write beyond the externally defined 
boimdaries of a file. Disk space full. 

<^Duplicate key. Attenpt was made to write (or, for an indexed file, rewrite) a 

record which would create a duplicate key in the file. For an indexed 
file, when file status is 92, a duplicate key condition exists if the 
key value of the current key of reference is equal to the value of that 
same key in the next record within the current key of reference. 

^No record found. Attempt was made to access a record, identified by key, but the 
record does not exist in the file. 

^Sequence error. For a relative file: trying to write beyond the predefined 

boundaries of the file. For an indexed file: trying to write a record 
containing a key which already exists on the file. 

SLocked record. The record is locked and being updated by another program. 

; ^Unlocked record. The record is not locked by a READ prior to a REWRITE. 

»»* ~ — ■ ' - '■ ' ■ ' 



Table 19-1. File Status Key Definitions, Indexed Sequential Files 
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PROCEDURE DIVISION 



The COBOL statanents listed in this section apply to their application 
in Indexed file processing. 

A conplete description of all COBOL verbs, their functions, formats, 
and rules, is provided in Section 16, PROCEDURE DIVISION. 

The INVALID KEY clause may be written for Indexed Files in the START, 
READ, WRITE, REWRITE or DELETE statements. Its format is: 

[INVALID KEY imperative- statement] 



The INVALID KEY clause is executed if there is an error status code condi- 
tion, in which case control is transferred to imperative-statement. If 
this clause is not present, control is passed to the DECLARATIVE section 
for the corresponding file. If neither is specified, the program will 
abort during execution. The result for the INVALID condition is returned 
via the ERROR STATUS code. See Table 19-1. 
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CLOSE STATEMENT 

FORMAT: 

CLOSE index-file-name. 

GENERAL RULE: 

This is the only option possible for an indexed file. 
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DELETE STATEMENT 

FORMAT: 

DELETE file-name [ INVALID KEY imperative- statement] 

GENERAL RULES: 

1. The DELETE statenent logically removes a data record fron the 
indexed file together with all the indices. 

2. In sequential access, the record to be deleted must have been 
successfully read before a delete can be executed. The primary 
RECORD KEY cannot be changed between the READ and DELETE statement, 
otherwise the INVALID KEY clause will be activated. 

3. RANDOM and DYNAMIC access modes only need to place the value of 
the record to be deleted in the RECORD KEY field. If that record 
does not exist in the file, the INVALID KEY statement is executed 
and the ERROR STATUS field will contain a value of 23. 
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INDEXED SEQUENTIAL FILES 



OPEN STATEMENT 



FORMAT: 



OPEN 



U 



I-O 

INPUT 

OUTPUT 



index- file-name -1 . 



GENERAL RULES: 

1. A file opened as INPUT can only be accessed in a READ statement. 

2. A file opened as OUTPUT can only be accessed in a WRITE statanent. 

3. A file opened as 1-0 can be either read or written with lock 
record. 

4. The table below specifies the types of OPEN statements which are 
permissible with the different ACCESS modes. 







Open Option : 


In Effect 


ACCESS 
MODE IS 


Procedure 
Statement 






Input 


Output 


1-0 




READ 


X 




X 




WRITE 




X 




SEQUEOTIAL 


REWRITE 






X 




START 


X 




X 




DELETE 






X 




READ 


X 




X 




WRITE 




X 


X 


RANDOM 


RBVRITE 

START 

DELETE 






X 

X 




READ 


X 




X 




WRITE 




X 


X 


DYNAMIC 


REWRITE 






X 




START 


X 




X 




DELETE 






X 



Table 19-2. OPEN Statements vs. Access Mode, Indexed 1-0 
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READ STATEMENT 

FORMAT 1: (SEQUENTIAL or DYNAMIC) 

READ file-name [ NEXT RECORD] [ INTO data-name-1] 
[AT END imperative -statement ....]• 

FORMAT 2: (SEQUENTIAL, RANDOM or DYNAMIC) 

READ filename [ INTO data-name-1] 

[ KEY IS data-name- 2] 

[ INVALID KEY imperative-statement] . 

(5ENERAL RULES: 

1. Fonnat 1, Option 1 (SEQUENTIAL ACCESS ONLY) : 

READ file-name [INTO data-name-1] [AT H® imperative -statement] . 

A file is read sequentially based on the primary index (RECORD KEY) . 
If one of the secondary index sequences is to be used, the index must 
be established via a Foimat 2, Option 2 READ statement. Thereafter, 
the file can be read with a Foimat 1, Option 1 format. If the INTO 
clause is used, the data record is autanatically moved into data-name-1. 
When AT END is specified, control is passed when the complete file has 
been read. 

2. Foimat 1, Option 2 (DYNAMIC and SEQUENTIAL ACCESS): 

READ file-name [NEXT RECORD] [ INTO data-name-1] 

[AT 0© imperative -statanent . . .]. 

A. FOR DYNAMIC ACCESS: 

This option allows the programmer to change from a random mode 
to sequential reading with the NEXT record clause. The INTO 
clause autanatically moves the data-record into data-name-1. 
The AT END clause transfers control at the end of the file. 

If the NEXT RECORD option is not specified, the value of the 
record to be retrieved must be placed in the RECORD KEY data- 
name. 
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B. FOR SEQUENTIAL ACCESS: 

The NEXT RECORD is not required with sequential access; it 
is automatically accessed. 

3. Format 2, Option 1: 

READ file-name [ INTO data-name- 1] 
[ INVALID KEY imperative -statement] . 

A. FOR SEQUENTIAL ACCESS: 

The fonnat will read the file sequentially based on the spe- 
cified index, or be defaulted to the primary index. The INTO 
moves data into data-name-1. INVALID KEY transfers control if 
any of the status codes listed in Table 19-1 are encountered. 

B. FOR DYNAMIC and RANDOM ACCESS: 

The format will retrieve data based on the value contained in 
data-name (primary or secondary index) . If the record is not 
found or, any other error status is encountered, control is 
passed to the INVALID KEY (refer to Table 19-1). The 
INTO clause moves data to data-name-1. 

4. Fonnat 2, Option 2: 

READ filename [ INTO data-name-1] 

[KEY IS data-name- 2] 

[ INVALID KEY imperative-statement] . 

This format is used for sequential access, allowing the file to be 
retrieved sequentially based on the ALTERNATE RECORD KEYS (secondary 
indexes) via the KEY IS clause. Once this format is executed, the 
Format 1 READ statement should be used. The index is used for each 
READ until another secondary index is specified via the KEY IS clause 
of a READ statement. 
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REWRITE STATEMENT 

FORMAT: 

RBVRITE record-name [ FROM data-name- 1] 
[ INVALID KEY imperative- statement . . .] 

GENERAL RULES: 

1. The REWRITE statement physically replaces an existing record. 

2. The REWRITE statement can change any or all data-fields in the 
record except the prime record key. 

3. The file must be opened for I-O for all access methods. 

4. A record must have been READ successfully prior to the REWRITE. 
This is required to lock the record and ensure that it cannot be 
updated by another program running concurrently. 

5. In the FRCM data-name- 1 option, the primary RECORD KEY must equal 
the key from the previous READ or the INVALID KEY conditions will 
occur. The FRCM option allows the record to be created in another 
area. It is equivalent to MOVE data-name-1 TO record-name prior to 
the execution of the REWRITE statsnent. 

6. Control is passed to the INVALID KEY statement if the primary key 
is changed. If this statement is not present, control is then passed 
to the USE DECLARATIVE. One or the other of these statanents must be 
present, or the program will terminate if the invalid statement is 
activated. Refer to Table 19-1 for status codes. 
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START STATEMENT 



FORMAT: 



( GREATER THAN 1 
NOT LESS THAN > ] data-name] 
EqPAir m J 

[ INVALID KEY imperative-statement . . .]. 

GENERAL RULES: 

1. The START statement enables an Indexed organized file to be posi- 
tioned for reading at a specified key value. This is permitted for 
files open in either sequential or dynamic access modes. The START 
verb is not allowed with the RANDOM access. 

2. Option 1: 

START file-name. 

This option positions the file to the value contained in the RECORD 
KEY data-name. If that record is not present on the file, control is 
passed to the DECLARATIVE section if present; otherwise the program 
terminates . 

3. Option 2: 

START file -name ^ IS data-name. 

This option will position the file to the value contained in data-name 
(data-name is the name of either RECORD KEY or one of the ALTERNATE 
RECORD KEYs). If the record is not contained on the file, control 
is passed to the DECLARATIVES - otherwise the program terminates. 

4. Option 3: 

GREATER THAN 1 
START file-name [mY IS KNOT LESS THAN > ] data-name] 

EquAin n J 



[ INVALID KEY imperative- statement 



] 



If the option GREATER or NOT LESS is specified, the file is positioned 
for the next access to be greater than or less than the value specified 
in the data-name. This option allows the keys to contain partial 
values . 

The INVALID clause or DECLARATIVES is taken if there is no data 
satisfying data-name, and the STATUS code returned is 23 on a full 
key. 
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5. START does not retrieve a record, but only positions to a 
desired record. 

EXAMPLE: 

Consider the following short indexed file. Each record contains 
just two fields: A NAME field which serves as primary key, and 
a CjOMPANY field: 



NAME COMPANY 



Source coding relating to the file might be: 
ENVIRONMENT DIVISION. 



SELECT FILE-1 ASSIGN TO PFMS 
ORGANIZATION IS INDEXED 
ACCESS IS DYNAMIC 
RECORD KEY IS NAME. 



DATA DIVISION 
FILE SECTION. 
FD FILE-1 LABEL RECORDS ARE STANDARD 

VALUE OF FILE-ID IS 'FILE-1'. 
01 FILE-1 -RECORD. 

03 NAME PIC XCIO) . 
03 COMPANY PIC XC25). 

A pictoral view of this file is presented below. 



data-name 


NAME 


COMPANY 


PICTURE 


PIC X(10) 


PIC X(25) 


Values : 


BLYE 
CLAPP 
GRIER 
HARPER 

KEANE 


REPORTCO 

MERGANTHALER 

AUTOMATION 

DESIGNERS 

REPORTCO 



REV. 
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I£ a sequential traverse of this file is performed, records are 
returned in sequence based on primary key: 



BLYE 


REPORTCO 


CLAPP 


MERGANn-lALER 


GRIER 


AUTOMATION 


HARPER 


DESIGNERS 


KEANE 


REPORTCO 



To obtain specific records with a START statement, a partial (or 
full) key is placed in the key field (NAME) . 

If the intent is to obtain records of people whose name begins 
with the characters F, G, H, and I, program actions should include 
the following type of logic: 



MOVE 'F' to NAME. 



START FILE-1 KEY IS NOT LESS THAN NAME. 



Place partial key value 
in key field. 

Find the first record 
whose key is not less 
than 'F'. This positions 
the file to the record. 



READ FILE-1 NEXT RECORD. 



This action will retrieve 
the desired record. In 
this example, it will be 
the record 'GRIER 
AUTOMATION' . 



READ FILE-1 NEXT RECORD. 



This action will retrieve 
the next sequential 
record, 'HARPER DESIGNERS' 



READ FILE-1 NEXT RECORD. 



This action will retrieve 
the next sequential record, 
'KEANE REPORTCO'. 
Examination will indicate 
all desired records have 
been obtained. 
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WRITE STATEMENT 
FORMAT: 

WRITE record-name [FROM data-name- 1] 

[ INVALID KEY imperative- statanent] . 

GENERAL RULES: 

1. The WRITE function releases a logical record for an output or 
I-O file. 

2. Prior to the WRITE statement, a valid, unique value must be in 
the primary RECORD KEY data-name. If the FROM option is used, the 
unique value in RECORD KEY data-name must be in the relative loca- 
tion of data-name-1. If the primary key is not unique, the invalid 
statement or the DECLARATIVE section will be executed. Refer to 
Table 19-1 for error conditions. 
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SECTION 20 
RELATIVE PILE PROCESSING 



DEFINITION 

Relative file organization is permitted only with disk storage 
devices. Records are stored and retrieved based on a relative 
record nijonber. For example, the 10th record is the one addressed 
by relative record number 10 and is the 10th record area whether 
or not records 1 through 9 have been written. 
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F I LE CONTROL 

FORMAT: 

SELECT file -name ASSIGN TO PFMS 

ORGANIZATION IS RELATIVE 

f sEQUENTIAL^ 
[ ACCESS MODE IS { RANDOM > ] 

(^ DYNAMIC 

RELATIVE KEY IS data-name -1 
[FILE STATUS IS data-name- 3] 

GENERAL RULES: 

1. SELECT file -name 

This clause specifies the name of the relative file. Refer to 
Environment Division for rules. 

2. ORGANIZATION IS RELATIVE 

This specifies that the file named in the SELECT statement contains 
data organized by record number and processed by the File Processing 
facility of the operating system. 

{ sequential '] 
RANDOM > ] 
DYNAMIC J 

This clause specifies how a relative file is written or retrieved. 

A. SEQUENTIAL: 

If access mode is not specified, the access mode will 
default to sequential. This access mode specifies that 
records will be written or retrieved sequentially. A READ 
statement retrieves the records sequentially. 

B. RANDOM: 

Specifies that the records are to be written or retrieved 
randomly based on the value placed in the RELATIVE KEY 
field prior to a READ or WRITE. When RANDOM access is 
used, the conplete RELATIVE KEY value must be placed in 
RELATIVE KEY, or the record will not be found. Random 
mode precludes a sequential READ or WRITE. 
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DYNAMIC: 



IVhen this access method is specified, the program can read 
or write randomly or sequentially. 

4. RELATIVE KEY IS data-name- 1 

The RELATIVE KEY clause specifies the data item within Working- 
Storage which is used for the primary index. 

A. Data-name -1 must not be defined in the Record Description, 

B. Data-name -1 must not be specified with an OCCURS clause, 
or be contained within a groi^) affected by an OCCURS 
clause. 

C. Data-name- 1 must not be specified with a P character in 
its PICTURE clause, or be described with a separator 
sign (/). 

D. Data-name -1 must be a valid numeric integer, and cannot 
contain a value greater than 999,999. 

E. The value contained within data-name- 1 must be unique; 
duplicates are invalid. 

The RELATIVE KEY is optional if access is sequential. In this case, 
no RELATIVE KEY need be specified. However, in the creation of the 
tenplate, a RELATIVE KEY size equal to the maximum (48 bits), must 
be given. 

5. [FILE STATUS IS data-name-3] 

The FILE STATUS is a Uvo- character (one word) , unsigned field 
described in the Working -Storage section. After each access to 
the operating system, a status code is placed in this field. For 
a successful read or write, etc., the status code contains 00. 
If the INVALID KEY or DECLARATIVES were involved, the error status 
code is returned. The programmer then can determine what action 
to take. Refer to Table 20-1 for error codes. 
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FILE 
ORGANIZATION 




STATUS KEY 1 




STATUS KEY 2 


Relative 





- Successful eonpletion 





- No further information 


1 


- End of file^ 





- No further information 


2 


- Invalid key 


1 


- Sequence error^ 


3 


- No record found^ 


4 


- Boundary violation^ 


X 


3 


- Permanent I-O error^ 





- No further information 


9 


- Inplementor - defined 





- Locked record^ 






1 


- Unlocked record^ 


2 


- Record already exits on Data Base 


6 


- Space relative key contains larger 
value than used when CREATK was used. 


9 


- System error, call analyst. 


^End of file. A READ statement was unsuccessful because there was no logical next 
record in the file. 

"Permanent I-O error. An I-O statement was imsuccessful because of an I-O error, 

such as data check, parity error, or transmission error. For sequential 
file only, a boundary violation. 

^Boundary violation. Attempt was made to read or write beyond the externally 
defined boundaries of a file. Disk space full. 

^No record found. Attenpt was made to access a record, identified by key, but 
the record does not exist in the file. 

f Sequence error. For a relative file: trying to write beyond the predefined 

boundaries of the file. For indexed file: trying to write a record 
containing a key which already exists on the file. 

SLocked record. The record is locked and being updated by another program. 

^Unlocked record. The record is not locked by a READ prior to a REWRITE. 



Table 20-1. File Status Key Definitions, Relative I-O 
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PROCEDURE DIVISION 

The COBOL statanents listed in this section apply to their application 
in RELATIVE file processing. 

A canplete description o£ all COBOL verbs, their functions, formats, and 
rules, is provided in Section 16, PROCEDURE DIVISION. 

The INVALID KEY clause may be written for Relative Files in the START, 
READ, WRITE, REWRITE or DELETE statements. Its format is: 

[ INVALID KEY imperative- statonent] 



The INVALID KEY clause is executed if there is an error status code condi- 
tion, in which case control is transferred to imperative-statement. If 
this clause is not present, control is passed to the DECLARATIVE section 
for the corresponding file. If neither is specified, the program will abort 
during execution. The result for the INVALID condition is returned via the 
ERROR STATUS code (see Table 20-1). 
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CLOSE STATEMENT 

FORMAT: 

CLOSE index -file -name. 

GENERAL RULE: 

This is the only option possible for a Relative file. 
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DELETE STATEMENT 
FORMAT: 

DELETE file-name [ INVALID KEY imperative- statement] 

GENERAL RULES: 

1. The DELETE statement logically removes a data record from the 
relative file. 

2. In sequential access, the record to be deleted must have been 
successfully read before a DELETE can be executed. The RELATIVE KEY 
cannot be changed between the READ and DELETE statement, otherwise 
the INVALID KEY clause will be activated. 

3. RANDCM and DYNAMIC access modes only need to place the value of 
the record to be deleted in the RELATIVE KEY field. If that record 
does not exist in the file, the INVALID KEY statment is executed and 
the ERROR STATUS field will contain a value of 23. 
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OPEN STATEMENT 



FOR^/IAT: 



I-O 

OPEN ^ INPUT 
OUTPUT 



' index- file-name -1 



GENERAL RULES: 

1. A file opened as INPUT can only be accessed in a READ statanent. 

2. A file opened as OUTPUT can only be accessed in a WRITE statanent. 

3. A file opened as 1-0 can be either read or written. 

4. The table below specifies the types of OPBI statonents which are 
permissible with the different ACCESS modes. 



. 

ACCESS 
MODE IS 


Procedure 
Statement 


Open Option in Effect 


Input 


Output 


1-0 


SEqUENTIAL 


I^EAD 

WRITE 

REWRITE 

START 

DELKl'E 


X 


X 


X 

X 
X 
X 


RANDCM 


I^EAD 

WRIHE 

REWRITE 

START 

DELETE 


X 


X 


X 
X 
X 

X 


DYNAMIC 


READ 

WRITE 

REWRITE 

START 
DELETE 


X 
X 


X 


X 
X 
X 
X 
X 



Table 20-2. OPEN Statements vs. Access Mode, Relative I-O. 
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READ STATEMENT 

FORMAT 1 (SEQUENTIAL or DYNAMIC) : 

READ file-name [NEXT RECORD] [INTO data-name-1] 
[AT END imperative- statement ... ] . 

FORMAT 2 (SEQUENTIAL , RANDOM or DYNAMIC) : 

READ filename [ INTO data-name-1] 
[ INVALID KEY imperative- statement] . 

GENERAL RULES: 

1. Fomat 1, Option 1 (SEQUENTIAL ONLY): 

READ file-name [ INTO data-name-1] [AT END imperative- statement] . 

For a sequential read, the file is read sequentially. If the INTO 
clause is used, the data record is automatically moved into data- 
name-1. TVhen AT END is specified, control is passed to the imperative - 
statement when the complete file has been read. 

2. Foimat 1, Option 2 (DYNAMIC and SEQUENTIAL): 

READ file-name [ mXT RECORD] [INTO data-name-1] . 
[AT END imperative- statement ... ] . 

A. FOR DYNAMIC ACCESS: 

This option allows the programmer to change from a randan mode 
to sequential reading with the NEXT record clause. The INTO 
clause automatically moves the data-record into data-name-1. 
The AT END clause transfers control at the end of the file. 

If the NEXT RECORD option is not specified, the value of the 
record to be retrieved must be placed in the RELATIVE KEY data- 
name. 

B. FOR SEQUENTIAL ACCESS: 

The NEXT RECORD is not required with sequential access. 
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3. Format 2, Option 1: 

READ filename [ INTO data-name- 1] 
[ INVALID KEY imperative- statement] . 

A. FOR SEQUENTIAL ACCESS: 

The format reads the file sequentially. The RELATIVE KEY is 
updated with the record number after each successful READ. 
The INTO moves data into data-name-1. The INVALID KEY transfers 
control if any of the status codes listed in Table 20-1 are 
encountered. 

B. FOR DYNAMIC and RANDOM ACCESS: 

This format retrieves data based on the value contained in 
RELATIVE KEY or data-name. If the record is not foimd, or any 
other error status is encountered, control is passed to the 
INVALID KEY clause. Refer to Table 20-1. 
The INTO clause moves data to data-name-1. 
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REWRITE STATEMENT 

FORMAT: 

REWRITE record-name [ VR(M data-name- 1] 
[ INVALID KEY imperative- statement . . .] 

GENERAL RULES: 

1. The REWRITE statanent physically replaces an existing record. 

2. The REWRITE statement can change any or all data- fields in the 
record. 

3. The file must be opened for I-O for all access methods. 

4. A record must have been READ successfully prior to the REWRITIi 
statonent. This ensures that the record cannot be updated by another 
program running concurrently. 

5. The FRCM data-name- 1 option allows the record to be created in 
another area. It is equivalent to a MOVE data-name- 1 TO record-name 
prior to the execution of the REWRITE statement. 

6. Control is passed to the INVALID KEY statement if the RELATIVE KEY 
is changed since the successful read. If this statement is not present, 
control is then passed to the USE DECLARATIVE. One or the other of 
these statanents must be present. Refer to Table 20-1 for status codes. 
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START STATEMENT 
FORMAT: 



GREATER THAN "^ 



START file-name [KEY IS [ < NOT LESS THAN } ] data-name] 

EQUAL TO 

[ INVALID KEY imperative -statanent . . . ] 

GENERAL RULES: 

1. The START statanent enables a relative file to be positioned for 
reading at a specified key value. This is peimitted for files open 
in either sequential or dynamic access modes. The START verb is not 
allowed with RANDCM access (see INVALID KEY). 

2. Option 1: 

START file -name 

This option positions the file to the value contained in the RELATIVE 
KEY data-name. If that record is not present on the file, control is 
passed to the DECLARATIVE section if present; otherwise, the program 
teiminates . 

3. Option 2: 

START file-name I^ IS data-name 

This option will position the file to the value contained in data-name 
as defined in RELATIVE KEY. If the record is not contained on the 
file, control is passed to the DECLARATIVES, otherwise they will 
terminate. 

4. Option 3: 

fcREATER THAN 1 
START file-name [KEY IS [< NOT LESS THAN / ] data-name] 

(equatto J 

[ INVALID KEY imperative-statement . . .] 

The option GREATER or NOT LESS is specified, the file is positioned for 
the next access to be greater than or less than the value specified in 
the data-name. This option allows the keys to contain partial values. 
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The INVALID clause or DECLARATIVES is taken i£ there is no data 
satisfying data-name, and the STATUS code returned is a 23. 

5. START does not retrieve a record, but only positions to a 
desired record. 
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WRITE STATEMENT 

FORMAT: 

WRITE record-name [FRCM data-name -1] 
[ INVALID KEY imperative -statonent] 

GENERAL RULES: 

1. The WRITE statement releases a logical record to a file. 

2. In the FRO^ option, data-name- 1 and record-name cannot reference 
the same manory location. 

3. The file must be open for OUTPUT or I-O. 

4. The INVALID KEY clause must be specified if the DECLARATIVE section 
is not applicable. The program will teiminate if an error code condi- 
tion arises. Refer to Table 20-1 for error codes. 

5. FOR SEQUENTIAL ACCESS: 

If the file is opened as OUTPUT, the records are placed in the file in 
sequential order. The first record would have a position of 1, and 
the record number returned into the RELATIVE KEY data -name would be 
1, etc. 

6. FOR DYNAMIC and RANDOM ACCESS: 

The value of the record number must be placed in the RELATIVE KEY data- 
name-1. 
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COBOL COMPILER PARAMETERS 

Prime COBOL Conrpiler Mnemonics 

N&iemonic parameters, which are the Prime -supplied default parameters 
(i.e., those which need not be included), are underlined. The system 
manager may have changed the defaults; if so, the programmer should 
obtain a list of the installation- specific defaults. 



treename 'I 

B[INARY] ^YES \ 

NO J 



EXP [LIST] 



I[NPUT] treename 



L[ISTING] < 



treename "^ 
YES 
NO 
TTY 
[^ SPOOL 



Specifies the binary (object output file. If 
<treename> is given, that will be the name 
of the binary file. If YES is used, the 
name of the binary file will be B*-PROGRAM 
(where PROGRAM is the source filename) . If 
NO is used, then no binary file is created 
and it is a syntax check only. Omitting the 
parameter is equivalent to the inclusion of 
-BINARY YES. (See Table 21-1.) 

Prints an expanded listing (in addition to 
the source code listing) in the listing file. 
This parameter has no effect for compilations 
in 64R mode. No listing is generated unless 
an output device file is specified using 
LISTING (see NOEXPLIST) . 

Specifies the name of the input source pro- 
gram (see Table 22-1). This parameter must 
not be used if the source filename immediately 
follows the COBOL command; otherwise, it must 
be included in the parameter list. 

Specifies the listing device/ filename. 

treename - opens this file for the listing. 
NO - no listing file is created. 
TTY - the listing file is printed on 

the user terminal. 
SPOOL - the listing file is spooled 

directly to the line printer. 
If this parameter is omitted from the para- 
meter list, it is equivalent to the -LISTING 
YES parameter inclusion. 
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COMPIT,F,R 
MNEMONICS 


INPUT 


LISTING 


BINARY 


treename 


looks for file named 
treename as source 
file 


opens file named treename 
as listing file 


opens file named 

treename as 
binary (object) 
file. 


YES 




uses default filename for 

listing file. 

L-^PROGRM 


uses default file- 
name for binary 
file. 
B^PROGRM 


NO 




no listing file. 


no binary file. 


TTY 




print listing on user 
terminal . 




SPOOL 




spool listing directly to 
line printer 




option 

not 

invoked 


source filename must 
be first option after 
COBOL coimand 


same as YES 


same as YES 



Table 21-1. Canpiler File Specifications 



NOEDCPLIST 



Do not generate an expanded listing. This para- 
meter is meaningful only for canpletion in 64V 
mode. 



64R 



Generates binary code suitable for loading with 
the Linking Loader. The user is given 64K words 
(128K bytes) of user memory. When loading the 
loader's NDVE command must be used to change load 
mode to 64R. (See 64V.) 



64V 



Generates binary code which must be loaded with 
the SEG loader. This must be used for gener- 
ating shared procedures and/or programs requir- 
ing more than 128K bytes of user space; it 
provides a user area up to 1.9 (or 3.9) mega- 
bytes (15 or 31 segments of 128K bytes each) . 
It may be run on any Prime 400 (or higher 
system) under PRIMOS IV or V. (See 64R.) 
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Explicit Setting of the A Register 

The COBOL compiler is invoked, by the COBOL conmand to PRIMOS 

COBOL treename [1/A-register] 

where treename is the treenaniie o£ the COBOL source file, and A- register 
is the (octal) value of the A Register. 

The default value of the A Register is: 

'000777 (binary = 0000000111111111) 

Input file is on disk 
No expanded listing 
Listing file is on disk 
Binary file is on disk 
Ccsnpile in 64R mode 

If the default values are used, the A-register parameter may be omitted. 

Bit values corresponding to the mnemonic parameters are: (defaults are 
underlined) . 



MNEMONIC 


BIT(S) 


SET TO 


B[INARY] 

EXP [LIST] 

I[NPUT] 

L[ISTING] 

NOEXPLIST 

64R 

64V 


14, 15, 16 

4 
8, 9, 10 
11, 12, 13 

4 

6 

6 


000,001,111 (see table 21-2) 

1 
000,001,111 (see table 21-2) 
000,001,111 (see table 21-2) 





1 



Binary bit settings are converted to octal A-register values by: 

1. Grouping bits by threes, starting from bit 16. 

2. Converting each group to its octal value. 
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EXAMPLE: 



Bit 
Number 

Binary 
Value 

Octal 
Value 



2 3 4 

11 



°l°l° 







, r 



%^" 



LiLlL 



11 J 12 13 



lAl^ 



14 15 16 



iUj=i 



Figure 21-1. Bit Conversion, Binary/Octal 



Bit specifications for input/ output devices are given in the table below: 



Bits 


Octal 


Device 


Miemonic Parameter 


000 
001 
111 



1 

7 


None 

User Terminal 

Disk (PRIMOS file system) 


NO 
TIT 



Table 21-2. Input/Output Device Bit Specification 



NOTE: Other values (2-6) are reserved for future use. The default is 7. 
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bit position 
numbers 











000 000 111 111 111 



2 3 4 



5 6 7 



8 9 10 



11 12 13 



14 15 16 



--^v_ 



3^ 



default (octal) 
default (binary) 



7 MNEMONICS (given in 
capital letters) 



.binary file "*^ 
BINARY 



listing file , Values 



SEE: 
File 



LISTING 

-source file 
INPUT y 



below. 



.compilation mode 
64R=0 64V=2 

.expanded listing 
NOEXPLIST=0 
EXPLIST=1 



FILE VALUES 



8 9 10 
Bits{ll 12 13 
(l4 15 16j 


' Octal 


Device/File 


Mnemonic 








None 


NO 


1 


1 


User Teiminal 


TTY 


111 


7 


Disk 




Others 


2-6 


Reserved for future 


use 



Figure 21-2. Bit-Mnemonic Correspondence, A Register 
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CCMPILER-GENERATED FILES 

File Types 

Three types o£ files may be involved during compilation. They are: 
source file, listing file, object file. Of these, the listing and 
object files are compiler-generated. Corresponding PRIM)S file units 
are given in Table 21-3 below. 



File Type 


PRMOS file unit 


Source 

Listing 

Object 


1 

2 
3 



Table 21-3. PRDdS File Units 



File Names 



If disk is specified as the device for the listing and/or object file, 
the COBOL compiler causes these files to be opened under the filename 
specified in the compile caranand. The default convention for a listing 
file is L<-file-name. The default convention for an object file is 
I>-file-name. 

Thus, for a source file named SAM, following the ccmpile canmand COBOL 
SAM, the listing and object files would exist in the current UFD as L-^SAM 
and B^SA^^, respectively. 

If the source file is given as a treename, e.g., [MFD]>UFD1 ...>SAM, where 
the file SMA does not reside in the current UFD (that in which compilation 
is occuring) , the listing and object files will still be opened as L-*-SAM 
and B<-SAM, respectively. Although the source exists in another UFD, L+-SAM 
and B<-SAM will, nevertheless, be opened in the current UFD. 

If the user desires the listing or object files to have other than default 
names as outlined above, the PRIMOS ccmmand, LISTING, must be invoked prior 
to compilation. Its format is: 

LISTING filename- 2 

where filename- 2 is the actual name under which the listing file will be 
stored. 
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The command LISTING SAMLST would open a listing file in the current UFD, 
on PRMOS file unit 2, under the filename Sy\MLST instead of L^SAM. NOTE: 
In this instance, A-register bits 11-13 must be set to '7 or nothing~wITl 
be written into the file. 

File Manipulation 

The listing output (s) of more than one source file can be concatenated if 
all listings are generated prior to closing the listing file. For example: 

LISTING filename- 2 



COBOL Source -1 1/A- register 
COBOL Source-n 1/A-register 

CLOSE ALL 

NOTE : System responses are not printed in the example above. Filename -2 
will contain the concatenation of all listing outputs from Source-1, ..., 
Source-n (for those compilations wherein listings were specified) . 

BINARY Filename-3 opens a binary (object) file with the specified name (in 
the current UFD) on PRIMOS file unit 3. This inhibits the compiler instruc- 
tion COBOL from opening a default object file. 

NOTE : The default value of bits 14-16 of the A-register is '7 - disk file 
system. If not using the default A-register values 

14-16 to '7 or nothing will be written into the object file. Object files 
can also be concatenated in the same manner as listing files. 

If the BINARY or LISTING commcinds are used prior to COBOL to establish non- 
default files, then the COBOL command does not close these files upon comp- 
letion. 

After COBOL returns command to PRIMOS, these files should be closed by the 
user by: 



C[LOSE] |^piiename-2J {pilename-sj 



or 



C[LOSE] ALL 
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COMMAND SUMMARY 



A conplete list of SEG commands is given in this section in alphabetical 
order. Underlining shows the acceptable command abbreviations. Items 
in brackets ([ ]) are optional. 

SEG Commands 

ATTACH [u£d-name] [password] [Idisk] [key] 
Attaches to another UFD. 



ufd-name 
password 
Idisk 



key 



is the name of the UFD to be attached to; omission 
is home UFD. 

is password of UFD to be attached to if password- 
protected. 

is logical disk on which MFD is to be searched for 
UFD specified. 



'0 (or omitted) 
'100000 

'177777 



search logical disk 
search all logical disks 
search logical disk on which 
current UFD is located 



is key for attach/set information. 

attach to UFD; do not set home 

1 attach to UFD; set home to new current file 

2 attach to sub -UFD in current UFD; do not 
set home to new current UFD 

3 attach to sub -UFD in current UFD; set home 
to new current UFD 



A/ SYM BOL sname [segtype] segno size 

Places a symbol and reserves or more locations in memory for it. 

sname is the name of the symbol 

segtype is the type of segment either DATA or PROCEDURE; if 
omitted, a data segment is assumed. iT^the segment 
does not yet exist, it will be created. 
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segno is the absolute octal segment number 

size is the number of locations (octal) to be reserved 
for the symbol; if omitted is assumed. 

CCM40N ABS segno 

Specifies segment into which COMNDN will be loaded. 

segno is the absolute octal segment number into which COMON 
will be loaded. 

COMNDN mi segno 

Establishes a relative assignment number for segment (s) into which 
COM^N will be loaded. 

segno is the segment number into which CO^M)N will be loaded; 
it is a small octal number. 

DELETE [filename] 

Deletes saved SEG runfile with name filename . If filename is omitted, 
the established runfile is deleted. 



D/xx 

Perform load operation with same numeric parameters as previous load 
command. 

XX represents one of the load commands: LOAD, LIBRARY, 
■~ RL, PL, IL. 

D/ may be combined with P/ as either D/P/xx or P/D/xx 

D^CUTE [1/a-reg] [2/b-reg] [3/x-reg] 

First SAVES the program with the register settings specified by the user, 
or the default values if the register setting is not specified. It then 
executes the program. After execution command is returned directly to 
PRIMOS. The default values are almost always used. 

a-reg initial value of A register 
b-reg initial value of B register 
x-reg initial value of X register 
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F/xx [filename] [addr psegno Isegno] 

F/S/xx [filename] [addr psegno Isegno] 
Forceloads all routines in an object file. 

XX is one of the load commands LOAD, LIBRARY, RL, PL, or 
IL. filename is the object TTle to be forceloaded. 

XX filename 
LOAD or RL required 
PL or IL omitted 

LIBRARY optional (if omitted PFTNLB 
and IFTNLB forceloaded) 

addr is the starting address in psegno for the procedure part 
of the binary file. If is specified, the current PBRK 
is used. 

NOTES : 

1. Simple forceload of object file. 

psegno relative assignment number of segment into which 
procedure is to be loaded. 

Isegno relative assignment number of segment into which 
link frames are to be loaded. 

If psegno and/or Isegno are 0, SEG's default segments are used. 

2. Forceload of object file to specific segments. 

psegno absolute octal number of segment into which pro- 
cedure is to be loaded. 

Isegno absolute octal number of segment into which link 
frame is to be loaded. 

F/S/xx may be written S/F/xx 

F/ may also be combined with D/ or P/ as D/F/xx (or F/D/xx) and P/F/xx 
(or F/P/xx) . 



HELP 

Prints a list of the SEG coram£mds at the user's terminal. 
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IL [addr psegno Isegno] 

Loads the inpure FORTRAN library IFTNLB. This form of the command is 
rarely used; loading to specific segments is more usual. 

addr is the starting address in psegno for the procedure 
part of the binary file. If is specified, the 
current PBRK is used. 

psegno relative assignment number of segment into which 
procedure is to be loaded. 

Isegno relative assignment number of segment into which 
link is to be loaded. 

If psegno and/or Isegno are 0, SEG's default segments are used. (See 
S/xx, F/xx, P/xx.) 



INITIALIZE [filename] 

Initializes SEG's loader and restarts it. 

filename is name of SEG runfile to be initialized and/or opened. 
If omitted, the established runfile name is used. 

LIBRARY [filename] [addr psegno Isegno] 

Loads a library file from UFD=LIB. 

filename is the name of the library file to be loaded; if 
omitted, the FORTRAN library files PFTNLB and 
IFTNLB are loaded. 

addr is the starting address in psegno for the procedure 
part of the binary file. If is specified, the 
current PBRK is used. 

psegno relative assignment number of segment into which 
procedure is to be loaded. 

Isegno relative assignment number of segment into which 
link frames are to be loaded. 

If psegno and/or Isegno are 0, SEG's default segments are used. (See 
S/xx, F/xx, P/xx.) 
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LOAD synonym for VLOAD 
LOAD * synonym for VLOAD * 

LOAD filename [addr psegno Isegno] 

Loads a binary file. 

filename is the name of the binary file to be loaded. 

addr is the starting address in psegno for the procedure 
part of the binary file. If is specified, the 
current PBRK is used. 

psegno relative assignment number of segment into which 
procedure is to be loaded. 

Isegno relative assignment number of segment into which 
link frames are to be loaded. 

If psegno and/or Isegno are 0, SEG's default segments are used. (See 
S/xx, F/xx, P/xx.) 

MAP filename-1 [filename-2] map-option 
MAP * [filename-2] map-option 

Prints specified loadmap of SEG runfile to user's terminal or to a 
file. 

filename-1 name of SEG runfile for which map is to be generated, 

filename-2 name of file into which map is to be written. If 
omitted, map is printed at laser's terminal. 

map -option type of loadmap to be generated 

(or omitted) Full map 

1 Extent map only 

2 Extent map and base areas 

3 Undefined symbols 

4 Full map (identical to 0) 

5 System programmer's map 

6 Undefined symbols, alphabetical order 

7 Full map, sorted alphabetically 



NOTES: 



1. Used to get a loadmap of a runfile other than the established 
runfile. 

2. Used to get a loadmap of the established runfile. 
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MAP [filename] map -option 

Prints a loadmap of currently established runfile to user's terminal or 
to a file. 

filename is name of file into which load map is to be 
written; if omitted, map is printed at user's 
terminal . 

map -option type of load map to be generated. Map-options 
are the same as in SEG's MAP command. 

WpiFf [filename] 

Invokes the modification sub -processor. 

filename is the name of the SEG runfile to be processed; 
if omitted, the established runfile is used. 

NEW filename 

Duplicates all portions of the established nmfile resident above segment 
'4000, under the specified new name. The full map and all references 
to segments below '4000 are preserved. 

filename is the name of the new SEG runfile which is to be 
created . 

OPERATOR option 

Allows the creators of specialized software to override basic restric- 
tions in SEG's loader. Its use is dangerous unless the programmer is 
very careful. It is not considered to be useful for the applications 
programmer. The actual implementation of OPERATOR may change from 
revision to revision and it is not considered to be a supported function 
of SEG. 

Option Function 

reinstate restrictions 

1 relax restrictions 

PATCH segno baddr taddr 

^fodifies the save range of an existing segment. Writes to the disk the 
portion of the runfile specified as patched. It may not be used with 
specifically addressed segments. 

segno is absolute octal number of patched segment 
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baddr is lowest octal location o£ the patch 
taddr is highest octal location of the patch 

PL [addr psegno Isegno] 

Loads the pure FORTRAN library PFTNLB. This form o£ the command is 
rarely used; loading to specific segments is more usual. 

addr is the starting address in psegno for the procedure 
part of the binary file. If is specified, the 
current PBRK is used. 

psegno relative assignment number of segment into which 
procedure is to be loaded. 

Isegno relative assignment number of segment into which 
link frames are to be loaded. 

If psegno and/or Isegno are 0, SEG's default segments are used. (See 
S/xx, F/xx, P/xx.) 

PSD 

Invokes the VPSD debugging utility. 

P/xx [filename] option [psegno Isegno] 

Loads an object file on a page boundary. A page boundary is an address 
of the form 'yyOOO where yy is an even number. 

XX is a load command: LOAD, LIBRARY, RL, PL, or IL. 

filename is the object file to be loaded. 



XX 




filename 










LOAD or 


RL 


required 










PL or IL 




omitted 










LIBRARY 




optional 


(if 
are 


omitted, PFTNLB 
: loaded) 


and 


IFTNLB 


option 


determines what shall be loaded 







PR load only procedure on a page boundary 

DA load only link frames on a page boxmdary 

(omitted) load both procedure and link frames on a page 
boundary 



22 - 7 November 1977 



SECTION 22 PDR3056 

psegno absolute octal number of segment into which procedure 
will be loaded. 

Isegno absolute octal number of segment into which link 
frames will be loaded. 

Default segments will be those of the current procedure and/or link 
frame pointers; if necessary SEG will create new segments. If either 
PR or DA is specified for option, loading in the non-specified segment 
begins at its current load point. Only the first routine in the file 
is placed on a page boundary. 

P/ may be compounded with F/ to forceload on a page boundary F/P/xx or 
P/F/xx (see F/xx) . 



QUIT 

Returns user to PRIMOS command level (in SEG) . 

QUIT 

Returns liser to PRIMDS command level. Does not SAVE runfile (in SEG's 
Loader) . 

RESTO RE [filename] 

Restores a SEG runfile to user memory. 

filename is the SEG runfile to be restored; if omitted, the 
established runfile is used. 

RESUME [filename] 

or 

RESUM E [filename] 

Restores runfile to memory, if necessary, and then executes it. 

filename is the name of the SEG runfile; if omitted, the 
established runfile is used. 



^TURN 

Returns the user to the SEG command level. Unlike the RETURN command in 
the Modification sub-processor this command does not SAVE the runfile. 
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mmm 

Writes entire runfile to disk and then transfers control to the SEG 
command level (in SEG's Modification subprocessor) . 

RL filename [addr psegno Isegno] 

Logically replaces a binary subprogram in the established runfile. 

filename is the name of the module to be replaced. 

addr is the starting address in the psegno for the 

procedure of the binary file. If is specified, 
the current PBRK is used. 

psegno relative assignment number of segment into which 
procedure is to be loaded. 

Isegno relative assignment number of segment into which 
link frames are to be loaded. 

If psegno and/or Isegno are 0, SEG's default segments are used. (See 
S/xx, F/xx, P/xx.) 

R/ SYM BOL sname [segtype] segno size 

Places a symbol and reserves or more locations in memory for it. 

sname is the symbol mune 

segtype is the type of segment, either DATA or PROCEDURE ; 
if omitted, a data segment is assumed. 

segno is relative segment reference number. If 0, the 
first available segment of current type is used. 
If segment does not yet exist, a new segment will 
be created. 

size is number of locations to be reserved for the 
symbol; if omitted, is assumed. 

SAVE synonym for I^DIFY 

SAVE [1/a-reg] [2/b-reg] [3/x-reg] 

SAVES the result of the load by writing all buffers to the disk and 
setting the stack into the first available segment (unless the user 
has specified the stack with the loader's ST command). The user has 
the option of setting the initial register values, but this is rarely 
ever done. 
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a-reg value of A register to be saved 
b-reg value o£ B register to be saved 
x-reg value of X register to be saved 

SEG filename 

SEG 

SEG filename 1/1 

SEG 1/1 

Invokes the segmented- address runfile utility. 

NOTES : 

1. filename is the name of the SEG runfile to be executed. 
Loads the runfile into memory and starts execution. 

2. Accesses the SEG commands to load, modify, and/ or 
execute a SEG runfile. 

3. filename is the name of the SEG runfile restored to 
memory prior to transfer of control to the VPSED 
debugging utility. Control may be returned to SEG by 
VPSD's, Q, or QU command and the program may then be 
executed. 

4. Allows the currently existing memory image to be examined 
and/or modified with the VPSD debugging utility. Control 
may be returned to SEG by VPSD's, Q, or QU command but the 
resulting memory image cannot be executed at the SEG 
command level. 



SHARE [filename] 

Converts portions of the SEG runfile corresponding to segments below 
'4001 into runfiles resembling those for ro^DE. 

filename is the name of the SEG runfile which is to be split 

out for sharing. If omitted, the established runfile 
will be used. 

SEG responds to the SHARE command by asking for a two -character ID as: 
TWO CHARACTER FILE ID: 

A separate runfile is created for each segment below '4001; the file- 
names are the two-character ID followed by the (octal) segment number. 
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SINGLE [filename] segno 



Creates a runfile for specified segment number resembling one for 
RNDDE. 

filename is the name of the SEG runfile from which an 
RMODE runfile is to be split. If omitted, 
the established runfile is used. 

segno is the absolute octal nijmber of the segment 
for which the RMODE runfile is to be created. 

SEG responds to the SINGLE command by asking for a two -character ID as: 

TWO CHARACTER FILE ID: 

The RM)DE runfile is created with a filename composed of the two -char- 
acter ID followed by the (octal) segment number specified. 

SK Ssize 

SK Ssize segno 

NOTES : 

1. Specifies stack size 

ssize is minimum required stack size in octal 

words; if is specified, the default value 
of '6000 is used, ssize = '177774 reserves 
an entire segment for the stack. 

2. Specifies stack location 

segno is absolute octal segment number for the 
stack. 

addr is octal starting address for the stack in the 
specified segment. Addr must be at least 4; 
locations to 3 must be reserved with R/SY. 

3. Specifies stack size and segment for extension stack 

ssize is minimum size of stack to be allocated. 

segno is absolute octal number of first segment avail- 
able for the extension stack. 

4. Specifies primary stack location and segment for extension 
stack. 

s segno is absolute octal number of segment in which stack 
begins . 
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addr is octal starting location o£ stack in starting 
segment . 

segno is absolute octal number of first segment avail- 
able for extension stack. 

In 3 and 4, the extension stack-frame begins in segno followed by 
segno+1, segno+2, etc., if needed. 

At least '15 (12) words must be available in the starting stack segment. 



SPLIT segno addr 

SPLIT addr 

SPLIT addr ssegno saddr esegno 

Breaks a segment into procedure (lower) and data (t^^per) portions. 

segno is the absolute octal number of the segment to be 
split. 

addr is the octal location of the split in the segment, 
addr must be a multiple of '4000. 



NOTES: 



1. Splits segment as specified. 

2. Splits segment '4000 and loads RMODE interlude program RUNIT 
starting at location '4000. 

3. Splits segment '4000, loads RUNIT and supports extension 
stacks. 

addr is address (octal) of split in segment '4000. 

ssegno is absolute octal number of segment in which stack 
will begin. 

saddr is address (octal) at which stack begins in segno. 

esegno is absolute octal number of first segment avail- 
able for stack extensions. 

At least '15 (12) words must be available in the 
starting stack segment. 



STACK ssize 

Sets the minimum stack size. 

ssize is the minimum required stack size (octal) . ssize = 
'177774 forces use of an entire segment for the stack. 
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START segno addr 

Sets a new address for start of" execution. 

segno is the absolute octal segment number. 

addr is the new ECB address word (octal) in the specified 
segment for start of execution. 

SYMBOL [sname] segno addr 

Defines a symbol at a specific location in memory (actually an entry in 
the symbol table) . SYMBOL may only be used to define a symbol before 
it is referenced. It, cannot be used to define initialized COMNDN or to 
satisfy unsatisfied references. 

sname is the symbol name. 

segno is the absolute octal segment number in which the 
symbol is to be located. 

addr is the octal address of the symbol in the specified 
segment . 

S/xx [filename] addr psegno Isegno 

Loads an object file to specified absolute segments. 

XX is a load command LOAD, LIBRARY, RL, PL, or IL. 

filename is the object file to be loaded. 

XX filenam e 

LOAD or RL required 
PL or IL omitted 

LIBRARY optional (if omitted, PFTNLB and IFTNLB 
are loaded) 

addr is the starting load address (octal in the procedure 
segment. If is specified, loading starts at the 
current pointer position (PBRK) . 

psegno is the absolute octal segment for loading procedure. 

Isegno is the absolute octal segment for loading the link 
frames . 

If segments do not already exist, they will be created. 
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S/ may be combined with F/ as either S/F/xx or F/S/xx. 

TIME [filename] 

Prints at user's terminal, time of creation or last saved modification 
of the runfile. 

filename is the SEG runfile name; if omitted, the established 
runfile is used. 

VLOAD [filename] 

Accesses the SEG loader. 

filename name of SEG runfile; if omitted, established runfile 
is vised. If filename is name of an existing SEG 
runfile, that runfile is initialized. 

VLOAD * [filename] 

Access the SEG Loader, preserving the contents of the specified runfile. 

filename is the name of the SEG runfile to be accessed; if 
omitted, the established runfile is used. 



MITE 

Rewrites to the disks all segments of the established runfile above 
segment '4000. 

If NEW is given before WRITE, the segments will be written into the new 
runfile; otherwise, the established runfile name will be used. 



XPUNGE dsymbol dbase 

Expunges some or all defined symbols from the symbol table. 

dsymbol Action 

delete only entry points, leaving COMdN areas 

1 delete all defined symbols - including C0I4CIN area 

dbase Action 

retain all base information 

1 retain only sector zero information 

2 delete all base area information 

XP dsymbol is equivalent to XP Dsymbol 
XP is equivalent to XP 
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PRIME COBOL SUMMARY 



FEATURES 

Prime COBOL is based upon American National Standard X3. 23-1974. Ele- 
ments of the COBOL language are allocated to twelve different functional 
processing ' 'modules' ' . 

Each module of the COBOL Standard has two non-null "levels"-- level 1 
represents a subset of the full set of capabilities and features con- 
tained in level- 2. 

In order for a given system to be called COBOL, it must provide at least 
level 1 of the Nucleus, Table Handling and Sequential I-O modules. 

The following summary specifies the content of Prime COBOL with respect 
to the Standard. 



Module 



Nucleus 



Sequential 1-0 



Relative 1-0 



Features Available in Prime COBOL 

All of level 1, plus these features of level 2: 
Levels 11 , 01-30, 88; 

Value series or range, level 88 conditions; 
AND OR = < > in conditions; 
Procedure -names consisting of digits only; 
CCMPUTE with multiple receiving fields ; 
PERFORM VARYING one index; 

Mnanonic -names for ACCEPT or DISPLAY devices; 
Qualification of Names (Procedure Division) ; 
Sign test; 
String ; 
Unstrins ; 

fDAY 
TIME) . 
DATE^ 

All of level 1 plus these features of level 2: 
RESERVE clause and variable form of BLOCK; 
Multiple operands in OPEN % CLOSE, with individual 
option per file. 

All of level 1 plus: 
RESERVE clause; 

DYNAMIC access mode (with READ next) ; 
START (with key relations EQUAL, GREATER, or NOT 
LESS) . 



A 
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Module 
Indexed I-O 



Library- 
Table Handling 



PDR3056 



Features Available in Prime COBOL 

All of level 1 plus: 
RESERVE clause; 

DYNAMIC access (with READ next) ; 
RANDOM access mode with READ by KEY; 
START (with key relations EQUAL, GREATER, NOT 
LESS) . 

Level 1 

All of level 1 pltis: 
SEARCH 



Inter -program 
Communication 



Level 1 



SYSTEM FILES 

To utilize COBOL, the following files must be available on the system in 
the UFD's specified: 



UFD 

CMDNCO 

SYSOVL 



LIBRARY 



FILE-NAME 

COBOL 

C$$DAT 
C$$DAR 
C$$GEN 
C$$FIN 
C$$END 
C$$64V (*) 

COBLIB 
COBKID 
VCOBLB C*) 



^Denotes new files for 64V mode. 
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VCOBLB 

The new VCOBLB 

C$ADAT 

C$ADAY 

C$ATIM 



C$INSP 

C$UNSI/C$UNS1 

C$STR1/C$STR2 

C$IN 

C$OS 

C$CS 

C$RS 

C$XS 

C$WS 

C$OI/C$OR 

C$SI/C$CR 



Library contains the following common COBOL subroutines. 

= returns current date in format YMMDD 

= returns Julian date in format YYDD 

= returns current time in format HHMMSSFF 

H = Hour 

M = Minutes 

S = Seconds 

F = Hundreth of seconds 

= INSPECT statement 

= STRING statement 

= STRING statement 

= File assignment initialization 

= Open sequential file 

= Close sequential file 

= Read sequential file 

= Rewrite sequential file 

= Write sequential file 

= Open indexed/relative file 

= C lose indexed/relative file 



A 
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APPENDIX B 
FILE ORGANIZATION 



ACCESS METHODS 

Sequential Access Method (SAM) 

SAM files require that all entries in a file preceding a desired entry- 
be accessed in order to reach that entry. In other words, the file must 
be read sequentially. This is most useful for files in which information 
is normally entered into the file sequentially and retrieved from it in 
the same manner. 

Direct Access Method (DAM) 

DAM files (RELATIVE) permit access to a specific entry in a file by spe- 
cification of physical disk record number. This peimits the user to 
locate an entry within a known position in the file more quickly than 
does the SAM file structure. The size is restricted to 999,999 entries. 

Indexed Sequential Access Method (INDEXED) 

INDEXED method locates file entries through a key field search. The user 
may retrieve a data entry with only a few disk accesses, regardless of 
the position of the entry in the file. The primary index is based on the 
description of the record key. The key value is embedded in the first 
data field in the record. The secondary indexes are referenced by alter- 
nate record keys; up to five additional indexes may be specified. The 
user must know in advance which index is to be used to locate a data entry. 
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APPENDIX C 

CREATING ISAM j^ND RELATIVE FILES 
THE MIDAS TEMPLATE 



THE ISAM FILE 

To initiate an INDEXED file for; COBOL, a program called CREATK must be 
run. This program creates a teijnplate for the ISAM file. The following 
is a summary of CREATK, modifiec^ to reflect COBOL terms. For more 
conplete information, see Section 11 of this manual and PDR 3061 
Reference Guide, Multiple Index! Data Access System (MIDAS), 

CREATK is a conversational program. A typical dialogue is as follows 
(all user responses are underliiied) : 

Minimum Dialogue 

User responses are underlined. 

Prompt Response 

OK, CREATK 

MINIMUM OPTIONS? YES If minimum options is selec- 

ted, all index level keys 
will have the same length 
as the full key for the last 
index level. The primary- 
key will be stored with the 
data and not in the index 
entries of the secondary 
indices. All index blocks 
will default to a length of 
440 words. 



Remarks 



FILENAME? [volume name>ufd passwd ldisk>] filename 



Volume name>UFD: specifies 
the name of disk and the 
User File Directory (UFD) 
on which the file is to 
be created. Filename is 
the user assigned filename. 



NEW FILE? 
DIRECT ACCESS? 



YES 



NO 



For a new, indexed file. 
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Data Subfile Questions 
(PRIME INDEX/RECORD KEY) 

Prompt 

KEY TYPE: 

KEY SIZE=: 



Response 

B 

B number 



DATA SIZE=; 



Remarks 



Number is the number of bits 
in the primary key. It is 
equal to 8 times the number 
of characters in the key; 
e.g., 2 characters in a key 
= 16 bits. The maximum size 
for an indexed file is 32 
characters or 256 bits. 



number Number of words for a data 
record, where number equals 
the record length divided 
by 2. For COBOL programs, 
this includes the key size, 
and a remainder factor of 1 
if it applies. 



(SECONDARY INDEX/Altemate Record Keys 
alternate record key.) 



this section is repeated for each 



INDEX NO.? 



DUPLICATE KEYS PERMITTED? 



1-5 The numeric variable is the 
(CR) number of the alternate 

record key. Carriage return 
(CR) will exit from CREATK, 
specifying no alternate 
indexes . 

YES YES allows the data in 
NO this key field to be 

duplicated. NO indicates 
that if the data in the key 
field is duplicated, the 
file will not be updated 
and the INVALID KEY clause 
or the USE DECLARATIVE 
section will be activated. 



KEY TYPE: 
KEY SIZE=; 



B 

B number 



Enter the number of bits 
in the key; use same 
formula as for primary 
index . 
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Prompt Response Remarks 

USER DATA SIZE=: No data may be entered for 

( CR) secondary keys. The 

response must be , (CR) , 
or (CK) . Either option 
will return the user to 
the prompt INDEX M3.? above, 
from which he may exit from 
CREATK, or continue with 
alternate key specifications, 

An acttial example for sample program REF2 appears at the close of 
Section 16. 
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THE RELATIVE FILE 

To initiate a relative file, a program called CREATK must be run. This 
program creats a template for the relative file. The following is a 
summary of a CREATK run used in creation of a relative file template. 
For more information, refer to Section 11 of this manual, and PDR 3061 
Reference Guide , Multiple Index Data Access System (MIDAS) . 

CREATK is a conversational program. A typical dialogue is as follows 
(all user responses are underlined) : 

Minimum Dialogue 

User responses are underlined. 

Prompt . Response Remarks 

OK, CREATK 

MINIMUM OPTIONS? YES If minimum options is selec- 

ted, all index level keys 
will have the same length 
as the full key for the last 
index level. The primary 
key will be stored with the 
data and not in the index 
entries of the secondary 
indices. 



FILE NAME? [volume name>ufd passwd ldisk>] filename 



Volume name>UFD: specifies 
the name of disk and the 
User File Directory (UFD) 
on which the file is to be 
created. Filename is the 
user assigned filename. 



NEW FILE? 
DIRECT ACCESS? 
KEY TYPE: 
KEY SIZE=: 



YES 



YES 



B 

B n\jmber 



For a new, relative file. 



Number is the number of bits 
in the relative key; i.e., 
characters in the key X 8. 
The maximum size is 6 
characters, or 48 bits. In 
sequential mode with no key, 
size must be specified at 
maximum: 48. 
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Prompt 
DATA SIZE=; 



Response 
number 



NUMBER OF ENTRIES TO ALLOCATE? 



number 



INDEX NO.? 



(CR) 



Remarks 

Number of words for a data 
record, where number equals 
the record length divided 
by 2 plus the remainder 
factor of 1 if it applies. 

number is the number of 
entries to allocate in the 
new KI/DA file. Entries 
are numbered 1-n inclusive; 
any references outside this 
range results in an error. 

This concludes template 
creation and returns to 
command level. 



NOTE - If an invalid response is entered by the user, the question 
(prompt) will be repeated. 
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PRIME COBOL VERBS INDEX 





CATEGORY 


Special 








VERB 


(Depending on Format 


Application 


PAGE 




ACCEPT 


I/O 




16-7 






ADD 


Arithmetic or Conditional 




16-9 






ALTER 


Procedure Branch 




16-11 






CAT,T, 


Procedure Branch 


Interprogram Communication 


16-12, 


17-3 




CLOSE 


I/O 


File Handling 


16-14, 


19-7, 


20-6 


COMPU'l'E 


Arithmetic or Conditional 




16-16 






COPY 


Compiler Directing 




16-17 






DELETE 


I/O or Conditional 


File Handling 


16-19, 


19-8, 


20-7 


DISPLAY 


I/O 




16-20 






DIVIDE 


Arithmetic or Conditional 




16-21 






ENTER 


Compiler Directing 


Interprogram Communication 


16-23, 


17-3 




EXHIBIT 


I/O 


Debugging 


16-24 






EXIT 


Procedure Branch 




16-25 






EXIT PROGRAM 


Procedure Branch 


Inteiprogram Communication 


16-26, 


17-3 




GO TO 


Procedure Branch 




16-27 






ipa 


Conditional or Arithmetic 




16-28 






INSPECT 


Data Movement 




16-32 






MOVE 


Data Movement 




16-34 






MULTIPLY 


Arithmetic or Conditional 




16-36 






OPEN 


I/O 


File Handling 


16-37, 


19-9, 


20-8 


PERFORM 


Procedure Branch 




16-39 






READ 


I/O or Conditional 


File Handling 


16-42, 


19-10, 


20-9 


READY TRACE 


TRACE MODE Directing 


Debugging 


16-44 






RESET TRACE 


TRACE MODE Directing 


Debugging 


16-45 






REWRITE 


I/O or Conditional 


File Handling 


16-46, 


19-12, 


20-11 


SEARCH 


Table Handling 




16-48, 


18-5 




SET 


Table Handling 




16-52, 


18-5 




START 


I/O or Conditional 


File Handling 


16-54, 


19-13, 


20-12 


STOP 


I/O or Ending 




16-56 






STRING 


Data Movement 




16-57 






SUBTRACT 


Arithmetic or Conditional 




16-60 






UNS'l'RING 


Data Movement 




16-62 






USE 


I/O Conditional 


File Handling 


16-67 






WRITE 


I/O or Conditional 


File Handling 


16-69, 


19-16, 


20-14 


^IF is a verb 


in COBOL, although not a ve 


rb in the grammatical sense 


in English. 


r- 



Table D-1. Prime COBOL Verb Index 
D - 1 
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FILE STATUS KEY DEFINITIONS 



FILE 
ORGANIZATION 




STATUS KEY 1 




STATUS KEY 2 


Sequential 





- Successful completion 





- No further information 


1 


- End of file^ 





- No further information 


3 


- Permanent I-O Error^ 





- No further information 


4 


- Boundary violation^ 


Relative 





- Successful conpletion 





- No further information 


1 


- End of file^ 





- No further information 


2 


- Invalid key 


1 


- Sequence error^ 


3 


- No record found^ 


4 


- Boundary violation'^ 


3 


- Permanent 1-0 errorb 





- No further information 


9 


- Implementor - defined 





- Locked record^ 






1 


- Unlocked record^ 


2 


- Record already exists on Data Base 


6 


- Space relative key contains larger 
value than used when CREATK was used. 


9 


- System error, call analyst. 


Indexed 





- Successful completion 





- No further information 


1 


- End of file^ 





- No further information 


2 


- Invalid key 


1 


- Sequence error^ 


2 


- Duplicate key'^ 


3 


- No record found^ 


4 


- Boundary violation'- 


3 


- Permanent 1-0 error^ 





- No further information 


9 


- Implementor - defined 





- Locked recorcP 


1 


- Unlocked record^^ 


2 


- Value in key already in the database 
and dxiplicates not specified when 
CREATK was run.^ 


3 


- Indices specified in the program do 
not match indices used when CREATK 
was run. 


5 


- Index size does not match size used 
on creation. 


6 


- The disk is full 


9 


- System error, call analyst 
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^End o£ file. A READ statement was unsuccessful because there was no logical 
next record in the file. 

■^ennanent I-O error. An I-O statement was unsuccessful because of an I-O 
error, such as data check, parity error, or transmission error. 
For Sequential file only, a boundary violation. 

^Boundary violation. Attempt was made to read or write beyond the externally 
defined boundaries of a file. Disk space full. 

T)uplicate key. Attempt was made to write (or, for an indexed file, rewrite) 
a record which would create a duplicate key in the file. For an 
indexed file, when file status is 92, a duplicate key condition 
exists if the key value of the current key of reference is equal to 
the value of that same key in the next record within the current key 
of reference. 

^o record found. Attempt was made to access a record, identified by key, but 
the record does not exist in the file. 

■^Sequence error. For a relative file: trying to write beyond the predefined 
boundaries of the file. For an indexed file: trying to write a 
record containing a key which already exists in the file. 

^Locked record. The record is locked and being updated by another program. 

HJhlocked record. The record is not locked by a READ prior to a REWRITE. 



Table D-2. File Status Key Definitions 
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PERMISSIBLE INPUT/OUTPUT STATE^NTS 



File 
Organization 


File Access 
Mode 


Procedure 
Statement 


Statement 


Input 


Output 


I-O 


Sequential 

Indexed 

Relative 


SEQUENTIAL 


READ 

WRI'l'E 

REWRI'l'E 

START 

DELETE 


X 
X 


X 


X 

X 
X 
X 


Indexed 
Relative 


RANDOM 


READ 

MITE 

REWRITE 

START 

DELETE 


X 


X 


X 
X 
X 

X 


Indexed 
Relative 


DYNAMIC 


READ 

WRITE 

REWRITE 

START 

DELETE 


X 


X 


X 
X 
X 
X 
X 



Table D-3. Permissible Input/Output Statements- 
Open Statements and Access Modes. 
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PERMISSIBLE MOVES 




RECEIVING 



u 

I— I 

H 



m 



u 
I— I 
Pi 



R 
I— I 

Q 
W 

U 

l-H 
Pi 



I— I 

Pi 






ALPHABETIC 



X 



BINARY 



X 



X 



X 



X (A) 



ALPHANUMERIC 
EDITED 



X (C) 



X 



NUMERIC 



X 



X 



X (B) 



NUMERIC EDITED 



X CC) 



X (C) 



ALPHANUMERIC 



X 



X CD) 



X 



NOTES : 

(A) I£ receiving operand length L is less than or equal 
to 18, target Picture 9(L) is assumed. Otherwise, 
the MOVE is disallowed. 

(B) The source is converted to DISPLAY fonn with 
separate trailing sign (blank for positive) , then 
moved as a character string source subject to 
truncation or blank padding depending on receiving 
its length. 

(C) The source is considered as a character string. 

(D) l£ source length L is less than or equal to 18, 
source Picture 9(L) is assumed. Otherwise, the 
MOVE is disallowed. 



Table D-4. Permissible Moves 
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ASCII CHARACTER SET 



COLLATING SEQUENCE 

The Prime COBOL collating sequence conforms to the American Standard 
Code for Information Interchange (ASCII) collating sequence. The 
octal value associated with each character in the Prime computer is 
the basis for the sequence, where characters are arranged in ascending 
value from top to bottom as in Table. 
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ASCII CHARACTER SET 





PRIME REPRESENTATION 




ASCII 






Character 


Hexadecimal Octal 


Punched Cards 


NUL (low-value) 


80 


200 




(space) 


AO 


240 


No Punch 


! (exclamation) 


Al 


241 


12-8-2 


" (quote) 


A2 


242 


7-8 


# (number) 


A3 


243 


8-3 


$ 


A4 


244 


11-3-8 


' (apostrophe) 


A7 


247 


5-8 


( 


A8 


250 


12-5-8 


) 


A9 


251 


11-5-8 


* 


AA 


252 


11-4-8 


+ 


AB 


253 


12-6-8 


, (coiiuua) 


AC 


254 


0-3-8 


- (minus) 


AD 


255 


11 


. (period) 


AE 


256 


12-3-8 


/ (virgule, slash, stroke) 


AF 


257 


0-1 


(zero) 


BO 


260 





1 


Bl 


261 


1 


2 


B2 


262 


2 


3 


B3 


263 


3 


4 


B4 


264 


4 


5 


B5 


265 


5 


6 


B6 


266 


6 


7 


B7 


267 


7 


8 


B8 


270 


8 


9 


B9 


271 


9 


: (colon) 


BA 


272 


8-2 


; (semicolon) 


BB 


273 


11-6-8 


< 


BC 


274 


12-4-8 


=s 


BD 


275 


6-8 


> 


BE 


276 


0-6-8 


V 


BF 


277 


0-7-8 


i (at) 


CO 


300 


8-4 


A 


CI 


301 


12-1 


B 


C2 


302 


12-2 


C 


C3 


303 


12-3 


D 


C4 


304 


12-4 


E 


C5 


305 


12-5 


F 


C6 


306 


12-6 


G 


C7 


307 


12-7 


H 


C8 


310 


12-8 


I 


C9 


311 


12-9 


J 


CA 


312 


11-1 


K 


CB 


313 


11-2 


L 


CC 


314 


11-3 


M 


CD 


315 


11-4 



(Characters with no punched card codes are not supported for punched card entry.) 
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ASCII CHARACTER SET 





PRIME REPRESENTATION 




ASCII 






Character 


Hexadecimal Octal 


Punched Cards 


N 


CE 


316 


11-5 





CF 


317 


11-6 


P 


DO 


320 


11-7 


Q 


Dl 


321 


11-8 


R 


D2 


322 


11-9 


S 


D3 


323 


0-2 


T 


D4 


324 


0-3 


U 


D5 


325 


0-4 


V 


D6 


326 


0-5 


W 


D7 


327 


0-6 


X 


D8 


330 


0-7 


Y 


D9 


331 


0-8 


Z 


DA 


332 


0-9 


a 


El 


341 




b 


E2 


342 




c 


E3 


343 




d 


E4 


344 




e 


E5 


345 




f 


E6 


346 




g 


E7 


347 




h 


E8 


350 




i 


E9 


351 




J 


EA 


352 




k 


EB 


353 




1 


EC 


354 




m 


ED 


355 




n 


EE 


356 




o 


EF 


357 




P 


FO 


360 




q 


Fl 


361 




r 


F2 


362 




s 


F3 


363 




t 


F4 


364 




u 


F5 


365 




V 


F6 


366 




w 


F7 


367 




X 


F8 


370 




y 


F9 


371 




z 


FA 


372 




(+zero) 


FB 


373 


12-0 


(-zero) 


FD 


375 


11-0 


DEL (high -value) 

— — __,-__, ___ — ___ 


FF 


377 
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COBOL SBIBOLS 


PUlSfCTUATiasi SYMBOLS - Used to punc±uate program entries. 


. period 


1. Used to terminate entries. Usually required. 




2. Used to signify the decimal in niineric literals. 


, cama 


1. Used to separate operands or clauses in a series. Usually optional. 




2. "Eurxpean" notaticn for the decimal in numeric literals. 


; semicolon 


Used to separate operands or clauses in a series. Usually optional. 


" quotation mark! 


Used to enclose non-numeric litereils. 


' apostrophe J 




OCBING SYMBOLS - Coipiler symbols. 


* asterisk 


Denotes an explanatory ocmnent line viien inserted in column 7 of a source 




program line. 


/ Virgule 


Denotes a skip to the top of a new page during a ccrtpiler listing. This 




is coded in colvimn 7 of a source program line. 


- hyphen 


Denotes a cantinuaticn-line for non-numeric literals ^len coded in column 7 




of a soiorce program line. 


SI(3I SYMBOLS/UNAKY OPERATORS - Found in numeric literals and arithrtetic formulas. 


+ positive 


1. Used as a sign character in the high-order (left-most) position of a 




numeric literal. 




2. As a unary operator, the effect of multiplication by numeric literal +1. 


- negative 


1. Used as a sign character in the high-order (left-most) position of a 




nvnreric litercil. 




2. As a imary operator, the effect of multiplication by numeric literal -1. 



COBOL SYJtBOLS 



AEIITHMETIC SYMBOIfi - Fovmd in arithnetic formulas. 



+ plus 

- minus 

* asterisk 

/ virgule 

= equal 

( ) parenthesis 



Mdition. 

SvibtractiQn 

multiplication 

Division 

"Make equal to" 

Used to enclose expressions to control the sequence in vMch they are 
performed. 



(XM3ITI0N SYMBOLS - Used in COTiditional test expressions. 



= equal 

> greater than 

< less than 

( ) parenthesis 



Denotes "is agual to". 
Denotes "is greater than". 
Denotes "is less than" 

Used to enclose expressicns to control the sequence in v^ch conditions 
are evaluated. 



REPORT ITEM OR EDIT SYMBOIS - Used in report item picture clauses. 



. decimal point 

(insertion character) 

, cotma 

(insertion character) 

$ dollar sign 

(floating character) 



Used to insert an actual decimal in the indicated position of a report 
item. 

Used to insert a cotma in the indicated position (s) of a report itan. 
(May be \ised in conjunction with floating characters.) 

Used to float an actual dollar sign (fron left to ri^t) in a report itm, 
so that exactly oie $ is developed ittmediately to the left of the nost 
significant nonzero digit in any position where the syirbol has been used. 



COBOL SYMBOLS 



REPORT ITEM OR EDIT SYMBOIg (ccaitinued . . .) 



= equal 

(iiisertion character) 

/ virgule 

(inserticai character) 

* asterisk 

(r^lacemant character) 



■^ 



+ plus 

- minus or dash (f ij^d 

sign control, or floating 
character) ^ 



B letter B 

(insertion character) 

ZERO 

(insertion character) 

Z ZED 

(replacement character) 

CR credit 

(fixed sign control 
character) 

DB debit 

(fixed sign control 
character) 

P letter P 

(decimal scaling 
character) 



Used to insert an actual equal symbol in the indicated position of a 
report item. 

Used to insert an actual slash in the indicated position (s) of an edited 
item. 

Used to replace leading zeros with an actual asterisk. Eac±i * represents 
a digit position in a report item. 

1. Used as a fixed sign control character in the lowMDrder (right-most) 
position of a report item picture. The symbol does not replace a digit 
position, 

2, Used to float an actual plus or min\is character (from left to right) 
in a report item, so that exactly one + or - is developed inmediately 
to the left of the most significant nonzero digit in any position v*iere 
the symbol has been used. 

Used to insert blanks in the indicated position (s) of an edited itati. 

Used to insert zero(s) in the indicated position (s) of an edited item. 

Used to replace leading zero(s) with blank (s) in the indicated position (s) 
of a report item. 

Used as a fixed sign ccaitrol character in the low-order (right-itost) 
position of a ireport itoa picture. It occupies 2 character positions in 
the picture. 

Used as a fixed sign control character in the low-order (right-nost) position 
of a report item picture. It occupies 2 character positions in the picture. 

Used to position the assumed decimal point away from the number; e.g. , an item 
vAiose actual value is 25 will be treated as 25000 if its picture is 99PPP7. 



PDR3056 ERROR MESSAGES 



APPENDIX G 
ERROR MESSAGES 

TYPES OF ERROR MESSAGES 

This Appendix contains the following categories of errors: 

• COMPILE -TIME ERRORS 

• COMPILE -TIME WARNING ^^ESSAGES 

• RMODE RUN-TIME ERROR MESSAGES 

• VMODE RUN-TIME ERROR J4ESSAGES 

• SEC ERROR MESSAGES 

Error messages appear alphabetically within each category. 
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COMPILE-TIME ERROR MESSAGES 



• ")" REQUIRED AFTER SUBSCRIPTS.' 

The close parenthesis following a subscript has been omitted. 
Correct the coding and recompile. 

'AREA-A VIOLATION; RESUMES AT NEXI PARAGRAPH/SECTION/DIVISION/VERB.' 
Data was ignored. 

'BLANK WHEN ZERO IS DISALLOWED.' 

The BLANK WHEN ZERO clause is not permitted here . Use zero 
suppression or other editing functions as indicated. Recompile. 

'CONDITIONAL I/O STATEMENT DISALLOWED WITHIN "IF".' 

Implied conditional such as SEARCH, AT END is invalid. 

'DATA DIVISION ASSUMED.' 

DATA DIVISION omitted; correct and recompile. 

'DELETE/ START NOT VALID FOR THIS FILE.' 

See Table 16-3 OPEN Statements and Access Modes. Correct 
coding, reconpile. 

'DISPLAY LIMITED TO 72 ON CONSOLE, 132 ON PRINTER.' 

The file exceeds limitations. Correct and recon5)ile. 

•ERRONEOUS ASSIGNMENT, ' 

Device does not match file; correct and recompile. 
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COMPILE-TIME ERROR MESSAGES 



'ERRONEOUS FILE -NAME.' 

SELECT file -name does not match FD file -name. 

'ERRONEOUS QUALIFICATION; LAST DECLARATION USED.' 

Data-name not unique, needs qualification. 

'ERRONEOUS SELECT - SENTENCE ; RESUMES AT NEXT SELECT OR AREA-A. ' 

The flagged SELECT is ignored. Correct errors, recompile. 

'ERRONEOUS SUBSCRIPTING; STATEMENT DELETED.' 

Refer to rules governing subscripting. Section 12, and 
subscripting, OCCURS clause. Correct errors, reconcile. 

'EXCESSIVE OCCURS NESTING IS IGNORED.' 

Restate, using a 'long-hand' form; recompile. 

•FD-VALUE IGNORED SINCE LABELS OMITTED.' 

Value of File- ID or owner ID specified with labels omitted. 
Correct and recompile. 

•FILE NEVER CLOSED.' 

Include a CLOSE statement for the file, reconcile. 

'FILE NEVER OPENED.' 

Include an OPEN statement for the file, recompile. 
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COMPILE -TIME ERROR MESSAGES 



•FILE NOT SELECTED; ENTRY BYPASSED.' 



FD entry has no corresponding SELECT statement. Correct 
and reconcile. 



'FILE SECTION ASSUMED.' 

Correct and reconpile. 

'GROUP ITEM; PIC/VALUE/ JUST/BLANK/SIGN/SYNC IGNORED.' 

These clauses are not permitted at the group level. Delete 
and recompile. 

'GROUP SIZE >32,767; SET TO 1.' 

Group and/or record size exceeds maximum. Correct and 
recompile. 

'ILLEGAL MOVE OR COMPARISON IS DELETED.' 

Check IF and MOVE statements. Correct errors, recompile. 

IMPROPER OCCURS COUNT IGNORED.' 

OCCURS is greater than 1024. Check rules for OCCURS clause; 
correct and reconcile. 

'IMPROPER REDEFINITION IGNORED.' 

Check rules for REDEFINES clause. Correct errors; 
recompile . 
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COMPILE -TIME ERROR MESSAGES 



'INCOMPLETE/TOO LONG STATEMENT DELETED, ' 

Check syntax; correct and recompile. 

'INCONSISTENT READ USAGE.' 

OPEN statement and USAGE do not agree. 

'INCONSISTENT WRITE USAGE.' 

OPEN statement and USAGE do not agree. 

•INVALID BLOCKING IS IGNORED.' 

BLOCK CONTAINS clause in error; correct and recompile. 

•INVALID RECORD SIZE(S) IGNORED.' 

RECORD CONTAINS clause in error; correct and reconpile. 

'ITEM ASSUMED TO BE BINARY. ' 

Elementary item with no PICTURE clause assumed binary. 
Check coding. 

'KEY DECLARATION OF THIS FILE IS INCORRECT.' 
Correct coding and recompile. 

•KEY MUST BE DECIMAL OR CHARACTER ITEM, MAX. 255 BYTES. STATEMENT DELETED. 
Key specification in error. Correct and reconpile. 
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COMPILE-TIME ERROR MESSAGES 



'LABEL RECORDS OMITTED ASSUMED FOR UNIT-RECORD FILE.' 
Check LABEL clause vis a vis device. 

'LABELS ASSUMED FOR DISK FILE.' 

Check LABEL clause vis a vis device. 

•LEVEL 01 ASSUMED. ' 

Check coding; correct and recompile. 

'MISORDERED/REDUNDANT SECTION PROCESSED AS IS.' 

Correct coding sequence; recompile. 

'NAME OMITTED; ENTRY BYPASSED.' 

Unrecognizable data-name/ syntax error. Correct and recompile. 

'NON-UNIQUE SUBSCRIPT; LAST DECLARATION USED.' 

Non-unique data-name. Qualification is required; recompile. 

'OCCURS DISALLOWED AT LEVEL 01.' 

Delete error and reconcile. 

'PARAGRAPH DECLARATION REQUIRED HERE.' 

Paragraph-name required; recompile. 
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COMPILE-TIME ERROR MESSAGES 



'PERIOD ASSUMED AFTER PROCEDURE -NAME DEFINITION.' 

Period missing after a paragraph-name. Correct and recompile. 

'PICTURE IGNORED FOR INDEX ITEM.' 

PICTURE disallowed on USAGE IS INDEX. Correct and recompile. 

'RECORD MIN/MAX DISAGREES WITH RECORD COOTAINS; LATER SIZES PREVAIL. ' 
Correct discrepancy, recompile. 

'REDUNDANT CLAUSE IGNORED.' 

Remove and reconpile. 

'REDUNDANT FD. ' 

Multiple FD's. Delete and recompile. 

"•SECTION" ASSUMED HERE. ' 

Insert SECTION and recompile. 

'SINGLE-SPACING ASSUMED DUE TO IMPROPER ADVANCING COUNT.' 

Advancing count is greater than 62. Correct and reconcile. 



'SOURCE BYPASSED UNTIL NEXT FD/SECTION. 



This relates to previous error. Correct previous error (s), 
recompile. 
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COMPILE-TIME ERROR MESSAGES 



•STATE^1ENT DELETED DUE TO ERRONEOUS SYNTAX. • 
Correct and recompile. 

'STATEMENT DELETED DUE TO OMISSION OF RELATIONAL SYMBOL.' 
Correct and reconcile. 

'STATEMENT DELETED DUE TO NON-NUMERIC OPERAND.' 

Inconpatible data types must be reconciled; recompile. 

'STATEMENT DELETED; OPERAND IS NOT A FILE-NAME.' 
Correct syntax and reconcile. 

'UNIT-RECORD FILE BLOCKING IS IGNORED.' 

Device and BLOCK clause are incompatible. 

'UNRECOGNIZABLE ELEMENT IS IGNORED. ' 
Correct and recompile. 

'UNRESOLVED PROCEDURE -NA^^E; STATEMENT DELETED.' 
Correct and recompile. 

'USING-LIST LEVELS MUST BE 01/77.' 

Correct and reconpile. 
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COMPILE -TIME ERROR MESSAGES 



'VALUE CLAUSE IGNORED.' 

Delete and recompile. 

•VALUE DELETED DUE TO TYPE CONFLICT. ' 

PICTURE and VALUE disagree. Correct and recompile. 

'VALUE DISALLOWED DUE TO OCCURS/REDEFINES. ' 

Remove VALUE clause and recompile. 

'VALUE DISALLOWED IN FILE/LINKAGE SECTION. ' 

Remove VALUE clause and recompile. 

'VARYING ITEM MAY NOT BE SUBSCRIPTED. ' 
Correct and recompile. 
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COMPILE-TIME ERROR MESSAGES, System Level 



INCONSISTENT READ USAGE 
INCONSISTENT WRITE USAGE 

A file has been defined to have usage of READ, WRITE or both, 
but I/O statements in the program show differently. For 
example, a file opened for I/O with only READ statements 
present will generate one of these errors. Correct errors; 
recompile . 

PRWFIL UNIT NOT OPEN 

Several conditions may pronpt this error: 

1. UFD full condition. 

2. Misspelled or missing division header. 

3. Unrecognized division. This problem is related to the 
one above. A division is not being recognized because of 
some other error. For example: 

A. No period on last item in Working -Storage causes 
the Procedure Division to be unrecognized. 

B. Erroneous literal or continuations in the vicinity 
of a division will cause an item to be unrecognized. 

Check to see that at least two temporary files will fit in the 
current UFD. Correct errors, recompile. 



TBL-GROUP-ERROR 



This error indicates an overflow of an internal table in the 
COBOL compiler. Possible causes: 

1. An excessive number of literals in one paragraph. 
Separate the sentences into two paragraphs. 
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COMPILE -TIME ERROR MESSAGES, System Level 



2. A SELECT clause does not match an FD statement. 
For example, the specified key does not exist in the 
Record Description. 

3. An IF statement has an inplied subject, implied 
relation, or parentheses. Correct and reconpile. 
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COMPILE-TIME WARNING MESSAGES 



'"COMP" IGNORED FOR DECIMAL ITEM. 



COMP has been specified, although the item appears to be 
decimal; the compiler is ignoring the COMP designation. 
Results may be incorrect. Determine the correct specifica- 
tion and recompile. 



'DATA RECORDS CLAUSE WAS INACCURATE. 



The DATA RECORDS clause does not agree with Record Description 
Entries for the file. Correct and recompile. 



'ITEM IS UNSIGNED. 



The item in this statement is unsigned, but appears to require 
sign designation. Results may be indeterminate. 



'LITERAL TRUNCATED TO ITEM SIZE' 



The literal is too large as specified. Reduce its size or 
enlarge the item size; recompile. 



'MOVE IS DONE WITHOUT CONVERSION. 



Data representation does not agree. Conversion will not occur; 
results are indeterminate. 



'PERIOD ASSUMED ABOVE. 



Statement syntax suggests a period; one has been generated by 
the conpiler. 
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RMDDE RUN-TIME ERROR MESSAGES 



BASE REGISTER = 

A program item referenced by a Base Register is finding the 
register clobbered or tinset. Each 01 in the Linkage Section 
and each FD in the File Section will use Base Registers. 
Possible problems are: 

1. A reference to data item located in a file description 
before that file is opened or after it is closed; 

2. A reference to an item in the Linkage Section when that 
item was not present in the CALL statement; 

3. A reference to a table entry with an out of range 
subscript resulting in a faulty Base Register setting 
for the next physical item. 

4. An inproper REDEFINES on item prior to an 01 with 
Base Register problems. 

Determine and correct the error. Recompile. 

GENERATED CODE 

Incorrect source program coding is causing the compiler to 
generate faulty object code. 

Determine and correct faulty coding. Recompile. 

INPUT/OUTPUT ERROR LINE XXXX 

This error is caused by one of the following I/O statements: 

OPEN, READ, WRITE, REWRITE, DELETE, START. 

XXXX refers to the program line number. If the error involves 
an OPEN statement, file assignments are incorrect. The program 
is attempting to open for reading a file which does not exist. 

Determine and correct the error. Recompile. 
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NON-NUMERIC DATA ERROR LINE XXX 



Possible causes include the figurative constant, SPACES, 
erroneous subscripting, incorrect redefinition of data areas, 
signed data in an unsigned field, etc. 



PERFORM OVERFLOW 



The program has encountered a nesting of PERF0K4 statements 
in excess of current capacity; the maximum depth is 24. 

Revrrite the appropriate program sections. Reconcile. 

PERFORM OVERLAP 

The program is performing a section of code which contains 
the end point of execution for another section of code. See 
the PERFORM statement in the COBOL REFERENCE SECTION. 

Rewrite the appropriate program section. Reconcile. 

REDUNDANT OPEN 

The program is attempting to OPEN a file which the program 
has currently open. 

Remove the OPEN statement or insert a CLOSE, Recompile. 



SUBSCRIPT FAULT 



The user has attempted to reference a table item with a 
subscript value of zero or a negative number. 

Correct the program. Recompile. 
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BAD SVC 



This error is most often caiosed by an incorrect specification 
of parameters for system subroutine calls from the COBOL pro- 
gram. For example, a CALL to TlNfDAT with incorrect parameters 
will produce this error. The incorrect parameters may be: 

1. Item not in word boundary; 

2. Use of external decimal in COBOL program when 
subroutine expects a single precision integer. 

Correct the errors; recompile. 



KIDA-- generated messages 



Error messages relating to MIDAS (KIDA) are described in a 
separate document; PDR 3061, MIDAS. 

Consult MIDAS manual. Correct errors; recompile program if 
necessary. 
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VMDDE RUN-TIME ERROR MESSAGES 



The general format for rim-time I-O errors generated by a 64V mode COBOL 
program is: 

KI/DA FILE SYSTEM ERROR n, FILE-STATUS CODE f 

FILE-ID: file-id OWNER-ID: owner-id DEVICE: device-name 

FATAL RUN-TIME 1-0 ERROR (C$ER) 
ER! 

The first line of the message is omitted unless the error was caused by an 
indexed or relative 1-0 operation which involved a call to the MIDAS file 
system. If printed, n represents the error code returned from MIDAS. For 
a complete discussion of MIDAS error messages, refer to PDR3061 Reference 
Guide, Multiple Index Direct Access System. Further, f is the COBOL file- 
status code, as defined in this manual. 

The diagnostic message is one-line which briefly describes the probable cause 
of the error. Most of the time the message will point directly to the problem. 
A list of diagnostics and further explanations are provided below. 

The next line identifies the file on which the error occurred. Information 
printed includes file-id and owner -id , if specified, and devic e - name (specified 
in SELECT clause). 

A list of the COBOL run- time 1-0 error messages follow. 

ATTEMPTED DELETE FROVI UNOPENED FILE 

The user attenpted to delete a record from an unopened file. 

ATTEMPTED READ FRCM ILLEGAL DEVICE 

The user attempted to read a record from the printer. 

ATTEMPTED READ FROM UNOPENED FILE 

The user attempted to read a record from an unopened or a 
write -only file. 
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YMODE RUN-TIME ERROR MESSAGES 



ATTEMPTED REWRITE TO NON-DISK FILE 



The user attempted to rewrite a record to a non-disk file 
(a file not assigned to Prime File Management System) . 



ATTEMPTED REWRITE TO UNOPENED FILE 



The user has attempted to rewrite a record to an input -only 
or an unopened file. 



ATTEMPTED START ON UNOPENED FILE 



The liser program executed a START statement on an unopened 
file. 



ATTEMPTED WRITE TO UNOPENED FILE 

The user attempted to write a record to an unopened or a 
read-only file. 

END OF FILE ENCOUNTERED 

An EOF mark was encountered on a sequential read statement. 

ERROR ADDING SECONDARY INDEX, UNABLE TO DELETE PRIMARY 

An error occurred adding a secondary index to an index file 
on a WRITE statement. When the error was noticed by the COBOL 
run- time package, an attempt was made to remove the primary 
index entry which failed. This error is always fatal and may 
indicate a problem with the MIDAS file structure or the COBOL 
run -time package. 

ERROR PROCESSING DELETE STATEMENT 

An error occurred attempting to delete a record from an 
indexed or a relative file. 
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ERROR PROCESSING START STATEMENT 



An unexpected error occurred while executing a START statement 
on an indexed or relative file. 



ERROR UNLOCKING RECORD 



A MIDAS error occurred (from UPDAT$) in an attempt to unlock 
a record. 



FILE READ ERROR 

General message indicating a sequential file read error. 

FILE REWRITE ERROR 

General message indicating a sequential file re -write error. 

FILE WRITE ERROR 

General message indicating a sequential file write error. 

NO READ PRIOR TO DELETE 

A READ statement must be executed prior to a DELETE on an 
indexed or relative file in sequential access mode. 

TO READ PRIOR TO REWRITE 

A READ statement must be executed prior to a REWRITE when an 
indexed or relative file is used in sequential access mode. 
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VMODE RUN-TME ERROR MESSAGES 



NO UNITS AVAILABLE 

All available file units are in use. Note that units 13-16 are 
reserved for use by MIDAS and FORMS. 

REDUNDANT OPEN ATTEMPTED 

The program tried to open a file which was already open. 

SEQUENTIAL WRITE TO RANDCM FILE OPENED IN I-O MODE 

Attempt to use the sequential WRITE statement on a file opened 
in 1-0 mode for random access is not permitted. 
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SEG LOADER ERROR MESSAGES 



BAD OBJECT FILE 

(VLOAD) User is attempting to load file which has faulty code. The 
file may not be an object file or it may be incorrectly 
compiled. FATAL, the load must be aborted 

CAN'T LOAD IN SECTORED MODE 

(VLOAD) The Loader is attempting to load code in sectored mode which 
has not been conpiled in sectored mode. This could arise if 
trying to load a module compiled or assembled in 16S or 32S 
mode. It is unlikely the average applications programmer will 
encounter this. FATAL, abort load. 

CAN'T LOAD IN 64V OR 64R MODE 

(VLOAD) The Loader is attempting to load code in 64V mode which is 
not compiled in that mode. This would arise if: 

1. A program was compiled in a mode other than 64V. 

2. A PMA module is written in code other than 64V and 
its mode is not specified. 

In case 1, the user should recompile the program. In case 2, 
which the average applications programmer is unlikely to 
encounter, the PMA module must be modified. FATAL, abort load. 

COMMAND ERROR 

CSEG) An unrecognized command was entered or the filenames/parameters 
following the command are incorrect. Usually not fatal. 

EXTERNAL MEMORY REFERENCE TO ILLEGAL SEGMENT 

(VLOAD) An attempt was made to load a 64R mode program, causing a 
reference to an illegal segment number. Reconpile in 64V 
mode. FATAL, abort load. 
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ILLEGAL SPLIT ADDRESS 

(VLOAD) Incorrect use o£ the Loader's SPLIT command. Segments may be 
split only at '4000 boundaries only (i.e., '4000, '10000, 
'14000, etc.). Not FATAL; resplit segment. 

MEMORY REFERENCE TO COMMON IN ILLEGAL SEGMENT 

(VLOAD) An attenpt was made to load a 64R mode program wherein 
COMMON would be allocated to an illegal segment number. 
Reconpile in 64V mode. FATAL, abort load. 

NO FREE SEGMENTS TO ASSIGN 

(VLOAD) All SEG's segments have been allocated; no more are available 
at present. Use SYMBOL command to eliminate COMMON from 
assigned segments, thus reducing the number o£ assigned segments 
required. (User may need larger version o£ SEG and PRBDS.) 
Fatal, abort load. 

NO ROOM IN SYMBOL TABLE 

(\T.OAD) Unlikely to occur; no user solution. A new issue o£ SEG with 
a bigger symbol table is required; check with analyst. As a 
temporary measure, user may try to reduce number o£ symbols 
used in program. FATAL, abort load. 

REFERENCE TO UNDEFINED SEGMENT 

(VLOAD) Almost always caused by improper use o£ the SYMBOL command to 
allocate initialized COMMON. Initialized COMMON cannot be 
located with the SYMBOL command; use R/SYMBOL or A/SYMBOL 
instead. 
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SECTOR ZERO BASE AREA FULL 

(VLOAD) Extremely unlikely to occur. Not correctable at applications 
level. Check with analyst. FATAL, abort load. 

SEGMENT WRAP AROUND TO ZERO 

(VLOAD) An attempt has been made to load 64R mode program. The pro- 
gram has exceeded 64K and is trying to be loaded over code 
previously loaded. Recon5)ile in 64V mode. FATAL, abort load. 
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APPENDIX H 






RESERVED WORDS 




ACCEPT 


DATA 


HICH-VALUES 


■ 

NEXT 


ACCESS 


DATE 


I-O 


NOT 


ADD 


DATE-COMPILED 


I-0-CONTROL 


NUMBER 


ADVANCING 


DATE-WRITl'EN 


ID * 


NUMERIC 


Ai-'lER 


DAY 


lEENTIFICATION 


OBJECT- COMPUIER 


ATJ. 


DECIMAL-POINT 


IF 


OCCURS 


ALPHABETIC 


DECLARATIVES 


IN 


OF 


ALTER 


DELETE 


INDEX 


OFF 


ALTERNATE 


ffiLIMITED 


INDEXED 


OFFLINE-PRINT * 


AND 


lELIMITER 


INITIAL 


OMITTED 


ARE 


lEPENDING 


INPUT 


ON 


AREA 


DISPLAY 


INPUT- OUi'PUT 


OPEN 


AREAS 


DIVIDE 


INSPECT 


OR 


ASCII * 


DIVISION 


INSTALLATION 


ORDS 


ASSEMBLER* 


DOWN 


INTO 


ORGANIZATION 


ASSIGN 


DUPLICATES 


INVALID 


OUTPUT 


AT 


DYNAMIC 


IS 


OWNER * 


AUIHOR 


ELSE 


JUST 


PAGE 


BEFORE 


END 


JUSTIFIED 


PERFORM 


BLANK 


ENIER 


KEY 


PFMS * 


BLOCK 


ENVIRONMENT 


LABEL 


PIC 


BY 


EQUAL 


T, FADING 


PICTURE 


CALL 


ERROR 


LEFT 


POINTER 


CHARACTER 


EVERY 


LENGTH 


POSITION 


CHARACTERS 


EXCEPTION 


LESS 


POSITIVE 


aosE 


EXHIBIT * 


LIFE- CYCLE * 




COBOL 


EXIT 


LINE 


PRINTER * 


CODE-SET 


EXl'HND 


LINES 


PROCEDURE 


COIVMA 


FD 


LINKAGE 


PROCEDURES 


COMP * 


FILE 


LOCK 


PROCEED 


COMP-3 


FILE-CONTROL 


LOW-VALUE 


PROGRAM 


COMPUTATIONAL 


FILE- ID * 


LOW-VALUES 


PROGRAM- ID 


COMPUTATIONAL- 3 * 


FILLER 


MODE 


PUNCH * 


COMPU'l'E 


FIRST 


MOVE 


QUOTE 


CONFIGURATION 


FOR 


Mr7 * 


QUOTES 


Cd^ISOLE * 


FROM 


MT9 * 


RANDOM 


CONTAINS 


GIVING 


MULTIPLY 


READ 


COPY 


GO 


NAMED * 


REAIER * 


COUNT 


GREATER 


NATIVE 


READY * 


CURRENCY 


HIGH-VALUE 


NEGATIVE 


RECORD 



* Prime reserved words 
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RESERVED WORDS 



RECORDS 


SUBTRACT 


REDEFINES 


SYNC 


REEL 


SYNCHRONIZED 


REFERENCES 


TABLE 


RELATIVE 


TALLYING 


REMARKS * 


TAPE 


REMOVAL 


'I'EKMINAL 


REPLACING 


THAN 


RERUN 


THEN * 


RESERVE 


THROUGH 


RESET 


THRU 


RESTART- FILE * 


TIME 


REVERSED 


TIMES 


REWIND 


TO 


REWRITE 


TRACE * 


RIGHT 


TRAILING 


ROUNDED 


UNCOMPRESSED * 


RUN 


UNIT 


SAIvE 


UNSTRING 


SEARCH 


UNTIL 


SECTION 


UP 


SECURITY 


UPON 


SELECT 


USAGE 


SENTENCE 


USE 


SEPARATE 


USING 


SEQUENTIAL 


VALUE 


SET 


VALUES 


SIGN 


VARYING 


SIZE 


WHEN 


SOURCE-COMPUTER 


WITH 


SPACE 


WORKING-STORAGE 


SPACES 


WRITE 


SPECIAL -NAMES 


ZERO 


STANDARD 


ZEROES 


START 


ZEROS 


STATUS 




STOP 




STRING 




* Prime reserved words 
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CONVERSION TABLES 



HEXADECIMAL AND DECIMAL CONVERSION 





XX 
HEX 


XX 
DEC 


XX 
HEX 


XX 
DEC 


XX 
HEX 


XX 
DEC 


XX 
HEX 


XX 
DEC 


\0 

tn 

vD 



1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
C 
D 
E 
F 



4096 
8192 
12288 
16384 
20480 
24576 
28672 
32768 
36864 
40960 
45056 
49152 
53248 
57344 
61440 



1 

2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
C 
D 
E 
F 



256 
512 
768 
1024 
1280 
1536 
1792 
2048 
2304 
2560 
2816 
3072 
3328 
3584 
3840 



1 

2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
C 
D 
E 
F 




16 

32 

48 

64 

80 

96 

112 

128 

144 

160 

176 

192 

208 

224 

240 



1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
C 
D 
E 
F 




1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 




16^ 




162 




16^ 




16° 





OCTAL AND DECIMAL CONVERSION 





OCT 


XXX 
DEC 


OCT 


XXX 

DEC 


OCT 


XXX 
DEC 


OCT 


XXX 

DEC 


OCT 


XXX 
DEC 


00 



1 
2 
3 
4 
5 
6 
7 



4096 
8192 
12288 
16384 
20480 
24576 
28672 



1 
2 
3 
4 
5 
6 
7 



512 
1024 
1536 
2048 
2560 
3072 
3584 



1 
2 
3 
4 
5 

6 
7 



64 
128 
192 
256 
320 
384 
448 



1 
2 
3 
4 
5 
6 
7 



8 
16 
24 
32 
40 
48 
56 



1 
2 
3 
4 
5 
6 
7 



1 
2 
3 
4 
5 
6 
7 




84 

1 




83 




82 




8l 




80 
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HEXADECIMAL ADDITION TABLE 



1 

2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
C 
D 
E 
F 



1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 

t 


E 


F 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 


10 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 


10 


11 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 


10 


11 


12 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 


10 


11 


12 


13 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 


10 


11 


12 


13 


14 


7 


8 


9 


A 


B 


C 


D 


E 


F 


10 


11 


12 


13 


14 


15 


8 


9 


A 


B 


C 


D 


E 


F 


10 


11 


12 


13 


14 


15 


16 


9 


A 


B 


C 


D 


E 


F 


10 


11 


12 


13 


14 


15 


16 


17 


A 


B 


C 


D 


E 


F 


10 


11 


12 


13 


14 


15 


16 


17 


18 


B 


C 


D 


E 


F 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


C 


D 


E 


F 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


lA 


D 


E 


F 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


lA 


IB 


E 


F 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


lA 


IB 


IC 


F 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


LA. 


IB 


IC 


ID 


10 


11 


17. 


13 


14 


15 


16 


17 


18 


19 


LA 


IB 


IC 


ID 


IE 



NOTE: All Numbers in Hex. 
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APPENDIX J 
EXPANDED LISTING FOR V ?ODE 



V-MODE 

In 64V mode (Prime 400 and Prime 500 units) , COBOL can optionally 
generate an expanded listing following the errors and warnings section 
in the listing file. The expanded listing is fairly 'PMA-like', easily 
readable, and is obtained by employing the mnemonic parameter -EXPLIST. 
For example: COBOL program-name -EXPLIST. 

For the expanded listing, instead of using source code identifiers. 
Prime COBOL uses machine -generated labels in the listing. The 
general format of these labels is X$HHEIH 

where: X is the label type (see below) 

HHHH is a hexadecimal identifier. 

LABEL TYPES 

A - Paragraph or section entry point 

B - Alter or Perform indirect word 

C - Iteration variable 

D - Decimal constant 

E - Picture string 

F - Character string 

G - Generated label for program flow control 

H - Passed parameter 

S - Generated label - any usage allowed 

Y - FCB - See VCOBLB listing for FCB formats 

Z - File buffer 

Other labels used are: 

SB% - Stack base relative - used for temporary storage. 

XB% - Temporary base relative - used for LINKAGE SECTION address. 

WRKSTi - Working -Storage 

WSECT$ - Working-Storage extension - used for items that are 
statically allocated but not explicitly in working 
storage. For example, the declaration 'indexed by 
data-name', would place 'data-name' in WSEXT$. 

EXAMPLE: 



003233: 001310 EAFA 1, Z$0027+72C 
003234: 001000. 000725L 
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The example above says: At Relative Location' 3233 in the procedure area 
EAFA 1, File Buffer CID=X0027) + 72 character offset. Note tliat the 
word offset is '725 in the link frame. 

An expanded listing file example is presented on the next several pages. 
It represents a portion of an actual listing for sample program REF2 
presented earlier. 

For additional information pertaining to expanded code, and the Program 
Statistics page which follows it, the user is referred to Section 5 
COMPILING A SOURCE PR0GRAf4, and the PMA User Guide, PDR 3059. 
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(0378) 

(0379) 

(0380) 

(0381) 

(0382) 

(0383) 

(0384) 

(0385) 

(0386) 

(0387) 

(0388) 

(0389) 

(0390) 

(0391) 

(0392) 

(0393) 

(0394) 

(0395) 

(0396) 

(0397) 

(0398) 

(0399) 

(0400) 

(0401) 

(0402) 

(0403) 

(0404) 

(0405) 

(0406) 

(0407) 

(0408) 

(0409) 

(0410) 

(0411) 

(0412) 

(0413) 

(0414) 

(0415) 

(0416) 

(0417) 

(0418) 

(0419) 

(0420) 

(0421) 

(0422) 

(0423) 

(0424) 

E X P A N D E 
000000: 
000001: 
000003; 
000004: 
000006: 
000007; 



READ-3. 



PEAD-4. 



READ-5. 



MOVE LCW-VALUES TC STATE. 

START DIPECTORY-FILE KEY IS MDT LESS THAN STATE. 

GO TO READ-FILE-GO. 

IVDVE ZEROS TO BIRTHD. 

START DIRECTORY-FILE KEY IS NOT LESS THAN EIRTHD. 

GO TO READ-FILE-GO. 



MOVE LOW-VALUES TO FIRST-NAME. 

START DIRECTORY-FILE KEY IS ISDT LESS THAN FIRST-NAME. 
READ-FILE-GO. 

READ DIRECTORY-FILE NEXT RECORD 

AT END MOVE ZEROS TO PERFORM-CCUNT 
GO TO READ-FILE-EXIT. 
DISPLAY DISPLAY-DIR. 
READ-FILE-EXIT. 
EXIT. 

* 

* 

WRAPUP. 

PERFORM LIST-DIR. 

MOVE 'END OF INDEXED TEST TO CHANGE FILE' TO PRINT-LINE. 

DISPLAY 'END OF INDEXED TEST'. 

CLOSE LIST-FILE, DIRECTORY-FILE. 

STOP RUN. 
* 

* 

* 



FORMAT-INPUT. 

MOVE SPACES TO WS-RECORD. 

DISPLAY 'ENTER LAST NAME'. 

ACCEPT WS-LAST-NAME. 

DISPLAY 'ENTER FIRST NAME'. 

ACCEPT' WS-FIRST-NAME. 

DISPLAY 'ENTER ADDRESS '. 

ACCEPT WS-ADDRESS. 

DISPLAY 'ENTER CITY '. 

ACCEPT WS-CITY. 

DISPLAY 'ENTER PHONE NUMBER ' . 

ACCEPT WS-PHONE-NO. 

DISPLAY 'ENTER STATE XX'. 

ACCEPT WS-STATE. 

DISPLAY 'ENTER BIRTHDAY MMDDYY' . 

ACCEPT WS-BIRTHD. 
3 LISTING FOR 

001300 EAFA 

001000. 000427L 

001320 STFA 

001000. 000564L 

001300 EAFA 

001000. 000664L 



— REF2 
0,WRKST$+6C 

0,Y$0027+20C 

0,Z$0027+8C 



J 



November 1977 



APPENDIX J 



PDR3056 



000011: 


001320 


STFA 


0,YS0027+88C 


000012: 


001000. 000626L 






000014: 


001300 


E^FA 


0,Z$0027+72C 


000015: 


001000. 000724L 






000017: 


001320 


STFA 


0,y$0027+96C 


000020: 


001000. 000632L 






000022: 


001300 


EAFA 


0,Z$0027+74C 


000023: 


001000. 000725L 






000025: 


001320 


STFA 


0,Y$0027+104C 


000026: 


001000. 000636L 






000030: 


001300 


EAFA 


0,Z$0027+23C 


000031: 


101000. 000673L 






000033: 


001320 


STFA 


0,Y$0027+112C 


000034: 


001000. 000642L 






000036: 


061432. 000376L 


PCL 


=C$IN ,* 






A$0001 ECU 


* 


SRC LINE 112 






000040: 


001300 


A$0002 EAFA 


0,F$81F1 


000041: 


000000. 000000F 






000043: 


001310 


EAFA 


1,SB 


000044: 


000400. 000012S 






000046: 


001313. 000032A 


LFLI 


1,26 


000050: 


001115 


ZMVD 




000051: 


061432. 000374L 


PCL 


=TNOn ,* 


000053: 


000500. 000012S 


AP 


SB 


000055: 


000300. 000000F 


AP 


='32, SL 


SRC LINE 113 






000057: 


001300 


EAFA 


0,F$8209 


000060: 


000000. 000000F 






000062: 


001310 


EAFA 


1,SE 


000063: 


000400. 000012S 






000065: 


001313. 000032A 


LFLI 


1,26 


000067: 


001115 


ZMVD 




000070: 


061432. 000374L 


PCL 


=TNOU ,* 


000072: 


000500. 00001 28 


AP 


SB 


000074: 


000300. 000056F 


AP 


=•32, SL 


SRC LINE 114 






000076: 


061432. 000372L 


PCL 


=I$AA12,* 


000100: 


000100. 000000F 


AP 


= '0,S 


000102: 


000500. 000012S 


AP 


SB 


000104: 


000300. 000000F 


AP 


='1,SL 


000106: 


001300 


EAFA 


0,SB 


000107: 


000400. 000012S 






000111: 


001310 


EAFA 


1,WRKST$+2C 


000112: 


001000. 000425L 






000114: 


001313,000001a 


LFLI 


1,1 


000116: 


001115 


ZMVD 




SRC LINE 115 






000117: 


001300 


EAFA 


0,WRKST$+2C 


000120: 


001000, 000425L 






000122: 


0P1303.000001A 


LFLI 


0,1 


000124: 


001310 


EAFA 


1,F$8224 


000125: 


000000. 000000F 






000127: 
RV. n 


001313. 000001A 


LFLI 

J - 4 


1,1 



PDR3056 



EXPANDED LISTING FOR V NDDE 



000131: 001117 




ZCM 






000132: 141603. 000000F 




BCNE 


G$0014 




SFC LINE 116 










000134: 061432. 000370L 




PCL 


=C$OS ,* 




000136: 001100. 002262L 




AP 


Y$0001,S 




000140: 000100. 000000F 




AP 


= '2,S 




000142: 000300. 000000F 




AP 


F$8230,SL 




SPC LINE 117 










000144: 01.000000F 




JMP 


A$001F 






G$0014 


EQU 


* 




SPC LINE 119 










000145: 02.000000F 


A$000A IDA 


= •240 




000146: 001310 




EAFA 


1,WRKST$+14C 




000147: 001000. 000433L 










000151: 001313. 000120A 




LFLI 


1,80 




000153: 001116 




ZFIL 






SEC LINE 120 










000154: 061432. 000370L 




PCL 


=C$OS ,* 




000156: 001100. 002104L 




AP 


Y$0011,S 




000160: 000100. 000105F 




AP 


='i,s 




000162: 000300. 000143F 




AP 


F$8230,SL 




SRC LINE 120 










000164: 061432. 000370L 




PCL 


=C$OS ,* 




000166: 001100. 002262L 




AP 


Y$0001,S 




000170: 000100. 000141F 




AP 


='2,S. 




000172: 000300. 000163F 




AP 


F$8230,SL 




SPC LINE 121 










000174: 02.000101F 




LDA 


= '0 




SRC LINE 121 










000175: 04.000620L 




STA 


Y$0027+76C 




000176: 061432. 000366L 




PCL 


=C$OI ,* 




000200: 001100. 000552L 




AP 


Y$0027,S 




000202: 000300. 000171F 




AP 


='2,SL 




SRC LINE 122 










000204: 001300 




EAFA 


0,WRKST$+94C 




000205: 001000. 000503L 










000207: 001310 




EAFA 


1,Z$0001 




000210: 001000. 002370L 










000212: 001313. 000144A 




LFLI 


1,100 




000214: 001303. 000111A 




LFLI 


0,73 




000216: 001114 




ZMV 






SRC LINE 122 










000217: 061432. 000364L 




PCL 


=C$WS ,* 




000221: 001100. 002262L 




AP 


Y$0001,S 




000223: 000100. 000000F 




AP 


S$0000,S 




000225: 000100. 000000F 




AP 


= '62, S 




000227: 000300. 000000F 




AP 


='40077, SL 






S$0000 EQU 


* 




SPC LINE 124 










000231: 061432. 000362L 


A$0011 


. PCL 


=C$RS ,* 




000233: 001100. 002104L 




AP 


Y$0011,S 




000235: 000100. 000000F 




AP 


S$0002,S 




000237: 000300. 000000F 




AP 


S$0001,SL 




000241: 01.000000F 


S$0001 JMP 


G$0015 
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SRC LINE 124 






000242: 01.000000F 


S$0002 JMP 


A$0017 


SPC LINE 125 






000243: 001300 


G$0015 EAFA 


0,Z$0011 


000244: 001000. 002212L 






000246: 001310 


EAFA 


1,Z$0001 


000247: 001000. 002370L 






000251: 001313. 000144A 


LFLI 


1,100 


000253: 001303. 000120A 


LFLI 


0,80 


000255: 001114 


ZMV 




SRC LINE 126 






000256: 061432. 000364L 


PCL 


=C$WS ,* 


000260: 001100. 002262L 


AP 


Y$0001,S 


000262: 000100. 000000F 


AP 


S$0003,S 


000264: 000100. 000226F 


AP 


=•62, S 


000266: 000300.000174F 


AP 


='0,SL 


SRC LINE 127 






000270 


: 02.000145F 


S$0003 LDA 


= •240 


000271 


001310 


EAFA 


1,Z$0027 


000272 


: 001000. 000660L 






000274 


: 001313. 001224A 


LFLI 


1,660 


000276 


: 001116 


ZFIL 




SRC LINE 128 






000277 


: 001300 


EAFA 


0,ZS0011 


000300 


: 001000. 002212L 






000302 


: 001310 


EAFA 


1,Z$0027+8C 


000303 


: 001000. 000664L 






000305 


: 001313. 000100A 


LFLI 


1,64 


000307 


: 001115 


ZNM) 




SRC LINE 129 






000310 


! 001300 


EAFA 


0,Z$0011+64C 


000311 


001000. 002252L 






000313. 


001310 


EAFA 


1,Z$0027 


000314 


001000. 000660L 






000316- 


001313. 000010A 


LFLI 


1,8 


000320: 


001115 


ZKVD 




SRC LINE 130 






000321: 


001300 


EAFA 


0,Z$0011+72C 


000322: 


001000. 002256L 






000324: 


001310 


EAFA 


1,Z$0027+72C 


000325: 


001000. 000724L 






000327: 


001313. 000010A 


LFLI 


1,8 


000331: 


001115 


ZMVD 




SPC LINE 131 






000332: 061432. 000360L 


PCL 


=C$WI ,* 


000334: 001100. 000552L 


AP 


Y$0027,S 


000336: 000100. 000000F 


AP 


S$0004,S 


000340: 000300. 000000F 


AP 


G$0016,SL 


000342: 01.000341F 


JMP 


G$0016 


SRC LINE 132 






000343: 


001300 


S$0004 EAFA 


0,WPKST$+6C 


000344: 


001000. 000427L 






000346: 


001310 


EAFA 


1,SE 


000347: 


000400. 000012S 
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000351: 


001313. 000002A 


LFLI 


1,2 




000353: 001115 


ZMVD 






000354: 061432. 000374L 


PCL 


=TNOU ,* 




000356: 000500. 000012S 


AP 


SB 




000360: 000300. 000203F 


AP 


='2,SL 




SPC LINE 133 








000362: 01.000231 


G$0016 JMP 


A$0011 




SEC LINE 135 








000363: 061432. 000356L 


A$0017 PCL 


=C$CS ,* 




000365: 001300. 002104L 


AP 


Y$0011,SL 




SRC LINE 135 








000367: 061432. 000354L 


PCL 


=C$CI ,* 




000371: 001300. 000552L 


AP 


Y$0027,SL 




SRC LINE 136 








000373: 001300 


EAFA 


0,F$825D 




000374: 000000. 000000F 








000376: 001310 


EAFA 


1,Z$0001 




000377: 001000. 002370L 








000401: 001313. 000144A 


LFLI 


1,100 




000403: 001303. 000022A 


LFLI 


0,18 




000405: 001114 


ZMV 






SRC LINE 137 








000406: 061432. 000364L 


PCL 


=c$ws ,* 




000410: 001100. 002262L 


AP 


y$000i,s 




000412: 000100. 000000F 


AP 


S$0005,S 




000414: 000100. 000265F 


AP 


='62, S 




000416: 000300. 000000F 


AP 


='3,SL 






S$0005 EQU 


* 




SRC LINE 139 








000420 


02.000270F 


A$001F LDA 


= '240 




000421 


001310 


&Fh 


1,Z$0001 




000422 


001000. 002370L 








000424 


001313. 000144A 


LFLI 


1,100 




000426 


! 001116 


ZFIL 






SRC LINE 140 








000427: 001300 


EAFA 


0,F$826C 




000430: 600000. 000000F 








000432: 001310 


EAFA 


1,SE 




000433: 000400. 000012S 








000435: 001313. 000014A 


LFLI 


1,12 




000437: 001115 


ZMVD 






000440: 061432. 000374L 


PCL 


=T!SDU ,* 




000442: 000500. 000012S 


AP 


SB 




000444: 000300. 000000F 


AP 


='14, SL 




SRC LINE 141 








000446: 02.000267F 


LDA 


= '0 




SRC LINE 141 








000447: 04.000620L 


STA 


Y$0027+76C 




000450: 061432. 000366L 


PCL 


=C$OI ,* 




000452: 001100. 000552L 


AP 


Y$0027,S 




000454: 000300. 000417F 


AP 


='3,SL 




SPC LINE 142 








000456: 001300 


EAFA 


0,WRKST$+2C 




000457: 001000. 000425L 
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P P 



002270> 


000007 






OCT 


7 


002271> 


000000 






OCT 





002272> 








IP 


Z$0001 


002274> 


100000 






OCT 


100000 


0P2275> 


000000 






OCT 





P02276> 


000000 






OCT 





002277> 


000062 






OCT' 


62 


002300> 


000062 






OCT 


62 


002301> 


000000 






OCT 





002302> 


000000 






OC'i' 





002303> 


000000 






OCT 





002304> 


000003 






OCT 


3 


002305> 


000000 






OCT 





002306> 


000000 






OCT 





002307> 


000000 






OCT 





602370> 




Z$0001 DATA 


50 (' 


G P A M 


£ T A T I S 


TIC 


S 







EXECUTABLE CODE SIZE: 2588 WORDS. 

CONSTAOT POOL SIZE: 511 WCPDS. 

TOTAL PUPE PROCEDUPE SIZE: 3099 WOPDS. 

WOPKING-STOPAGE SIZE: 168 BOTES. 
TOTAL LINKFPAME SIZE: 1096 WORDS. 

STACK SIZE: 102 WOPDS. 

TRACE MCOE: OFF. 

NO ARGUMENTS EXPECTED. 

424 SOURCE LINES. 



0000 ERRORS 0000 WARNINGS, P400/500 COBOL REV 14.0 <REF2> 
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APPENDIX K 
REVISION 15 COBOL 



This appendix is composed of pages 1-17 of PrU48. The ronainder of the 
ETU: corrections, typographic errors, etc. have been incorporated 
into the guide itself. 



Systen Files 

To utilize COBOL, the following files must be available in the UFD SYSOVL: 

C$$COB (*) 

C$$ENV (*) 

C$$DA.T 

C$$DAR 

C$$GE3SI 

C$$FIN 

C$$END 

C$$64V 

(*) Denotes new files at Rev. 15. 

NOTE ; Rev. 14 and earlier COBOL libraries are inccmpatible with the Rev. 15 
ccrapiler. 

Streamlined Compiler 

The Rev. 15 COBOL compiler is roughly twice as fast as older ccrapilers. 
In addition, the working set size has been significantly reduced. This 
should improve compilation speed considerably on small memory systans. 

At Rev. 15, the conpiler will flag milestones dxoring ccmpilation: Phases I 
through VI. 



OK, COBOL -INPUT READ. IF 
GO 

PHASE I 

PHASE II 

PHASE III 

PHASE TV 

PHASE V 

PHASE VI 



-64V 



Environment Division 
Data Division 
Procedxare Division 
Intermediate Code Generation 
File Control Block Generation 
Final Code Generation 



0000 ERRORS 0000 WARNINGS, P400/500 COBOL REV 15.00 <TEST> 
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Messages relating to unsuccessful compilations are provided in one or both 
of the following forms: 

1. On the terminal, after Phase VI: 

PHASE VI 

unsucx:essful cxdmpilation; terminal error on line 20 . 
0002 errors 0000 warnings, p400/500 cobol rev 15,00 <test> 
compilation ai50rted (cobol) 

ER! 

NOTE : PRIMOS will return with the error prompt (ER!) rather than OK. 
The user should never attempt to LOAD or SEG the output of an 
ABORTED or UNSUCCESSFUL compilation. 

In such instances, the listing file will confirm the unsuccessful 
compilation and provide additional diagnostics. 



Example: 

REV 15.0 COBOL 



SOURCE FILE: READ. IF 



04/05/78 



REV 15.0 COBOL S0UK:E FILE: READ. IF 

(0001) XXXXXX IDENTIFICATION DIVISIOSF. 

(0002) XXXXXX PROGRAM-ID. 

(0003) XXXXXX DRWrST. 

(0004) ENVIRONMENT DIVISION. 

(0005) INPUT-OUTPUT SECTIOSI. 

(0006) FILE-CONTROL. 

(0007) SELECT IN-FILE ASSIGN TO PFMS. 

(0008) XXXXXX DATA DIVISIOSI. 

(0009) FILE SECTION. 

(0010) FD IN-FILE 

(0011) LABEL RECORDS ARE STANDARD 

(0012) VALUE OF FILE-ID IS "INPUT'. 

(0013) 01 IN-RECl PIC X(40) . 

(0014) XXXXXX W3RKING-ST0RAGE SECTION. 

(0015) 77 ACT-VALUE PIC X VALUE SPACE. 

(0016) PROCEDURE DIVISION. 

(0017) OPEN-FILES. 

(0018) OPEN INPUT IN-FILE. 

(0019) IF ACT-VALUE = '1" 

(0020) READ IN-FILE AT END GO TO END-PAR. 

(0021) GO TO OPEN-FILES. 

(0022) END-PAR. 

(0023) CDDSE IN-FILE. 

(0024) STOP RUN. 
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0020 CONDITIONAL I/O STATEMEM? DISALLCH^ED WITHIN "IF" . 
UNSUCCESSFUL COMPILATION; TERMINAL ERROR ON LINE 20. 

***** COMPILATION TERMINATED (INTERNAL ERROR 106) . OBJECT FILE UNUSABLE. ***** 

0002 ERRORS 0000 WARNINGS, P400/500 COBOL REV 15.00 <DBWTST> 

2. At the end of the listing file. 

Example: 



(5001) 05 RN-COMPLETION-CD. 

(5002) 07 RN-ID PIC XX. 

(5003) 07 RN-ERR-CO PIC 99. 

(5004) 03 RN-STUDENT-DATA. 

*** ERROR *** UNSUCCESSFUL COVEPILATION 
INTERNAL ERRDR = FULL DIRECTORY 
0001 ERROR 0000 WAE^NINGS 

NOTE ; In both instances, the object file is unusable! 

The COBOL ccmpiler issues a new warning: 

'LITERAL TRUNCATED TO ITEM SIZE'. 

VALUE OF FILE-ID has been specified by a literal of greater than 
8 characters; or, 

CWNER IS has been specified by a literal of greater than 6 
characters . 

The literal is trxincated to the correct size. 
Larger Address Space 

At Rev. 14 and earlier, COBOL programs were restricted to a maximum of a 
64K byte total address space. This was further djminished by 4K bytes for 
each file declared and for each argument passed. The size of a data ita-a 
(group or elementary) could not exceed 4K bytes. 

At Rev. 15, these restrictions have been relaxed or removed. The new 
characteristics are: 

• The total address space which a program uses no longer tias an 
implicit limit. 

• The maximum record size is now 32K bytes. 
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• The OCCURS count my not exceed 32,767. The maximum table size is 
32,767 bytes. 

• Up to 126 declared files are permitted. 

In R noae, the total program tc^ether with library size must not exceed 
64K words. In V node, extended addressing is manipulated through conpiler 
generated cormon blocks. 

Language Extensions 

• OPEN EXIIIND for sequential disk files 

OPEN EXTEND filename-1. . . [filenaroe-n] 

The EXTEND phrase option can be used only for sequential disk files in 
connection with the WRITE staternent. 

When the EXTEND phrase is specified, the OPEN statement opens the file, 
then positions to the botton of the file (iitmediately following the last 
logical record) . Subsequent WRITE statements to the file will add 
records to that file as though it had been opened with the OUTPUT phrase. 

• Full IF stateirents (except arithmetic expression operands) 

* The logical connective NOT . 
Negated simple conditions. 
Coribined and negated cotibined conditions. 
Implied si±)jects on IF statements (simple 

relation condition and cotibined relation 

condition) . 

V Mcxie Mag Tape Support 

LABEL is a PRIMOS utility v^iich creates ANSI level 1 volume labels on 
magtape for R mode and V mode. For information on the lABEL utility, the 
USER should issue the comiand: 

OK, lABEL -HELP 

The LABEL utility will respond with: 

GO 

The LABEL program is used to create an ANSI level 1 volume label on 
a magtape. To use, enter the ccnimand: 

LABEL MTn -VOLID volume-id -OWNER owner-id -ACC access 
following the 'OK,' protpt issued by PRIMOS. 

MTn specifies the unit number of the tape to be labelled... 

n must be within the range 0-7. 
volume-id is a 1-6 character alphanumeric string vMch uniquely 

identifies this tape volume. 
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owner-id is a 1-14 character string which identifies the owner 
of the reel. If emitted, the user login-name is 
defaulted. 

access is a single alphanumeric character which defines 

accessibility to this volume. This is disregarded by 
Prime software and is provided only for the sake of 
completeness. If omitted, this field is left blank. 

LABEL will also print the volume and file label infonnation by 
typing: 

LABEL MTn 

OK, 

Enhancements and Corrections 

• 'DECIMAL POINT IS COMMA' is functional in 64V. 

• Level 88 (decimal) is functioning properly in all cases. 

• Syntax only ccmpilation (-B NO) is now working correctly. 

• COPY statements may contain text after the COPY clause. 

In the listing file, the line numbering of the COPY file is now 
independent of the line numbers of the source. 

For example, in the current UFD a file MASTER contains the following: 

02 BADGE-ID. 

03 FILLER PIC XX. 

03 ID-INC PIC 9(5) VALUE ZERO. 

02 NAME . 

03 LAST-NAME PIC X(14) . 

03 FIRST-NAME PIC X(14) . 

03 MIDDLE-INIT PIC X. 

and a source program reads: 



01 MASTER-RECORD COPY MASTER. 
01 EMPLOYMENT-HISTORY. 
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the corresponding listing file would look like: 

(0059) 

(0060) 

(0061) 

(0062) 01 MASTER-RECORD COPY MASTER. 

[0001] 02 BADGE-ID. 

[0002] 03 FILLER PIC XX. 

[0003] 03 ID-INC PIC 9(5) VALUE ZERO. 

[0004] 02 NAME. 

[0005] 03 LAST-NAME PIC X(14) . 

[0006] 03 FIRST-NAME PIC X(14) . 

[0007] 03 MIDDLE-INIT PIC X. 

(0062) 01 MASTER-RECORD COPY MASTER. 

(0063) 01 EflPLOYMEIsIT-HISTORY. 
(0064) 

(0065) 
(0066) 

• Ccmpiler now perfonns all rounding operations properly. 

• Magnetic tape input-output is now supported in virtual mode. 

• Varying a single digit subscript in a perform statesnent will now 
function properly. 

• The figurative constant SPACES will not abort the conpiler if placed on 
an alpha-numeric group level. 

• Cotparison of a numeric field with a non-numeric literal now functions 
properly. 

• Signed data-names will now be considered numeric in level 88 
conditional testing. 

• A nested conditional within an IF statanent will be flagged as 
illegal . 

• Closing an unopened sequential disk file will not produce misleading 
diagnostics . 

• Problems existing with Rev. 14.2 SORT libraries for calling internal 
sort subroutines fron COBOL have been fixed. 

• Overwriting a sequential disk file will properly tnmcate the old 
file. 

• A single digit level 88 conditional will now work as expected. 
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Using an invalid level number will now be flagged by t±ie ocmpiler as 
illegal, rather t±ian abending. 

Attempts to add to a group level will now properly be flagged as 
illegal . 

Expanded code statistics for nun±)er of source lines no longer tally 
only to 2047 and then wrap around to zero. 

Compiler aborted vdien a VMUE ZERO clause was placed on an alpha- 
numeric group item. Abort occured v^en processing the Data Division 
with a table groL^ error. 

A VALUE clause not followed by a period and followed by the Procedure 
Division on the next line will no longer cause the conpiler to write to 
the listing file until the disk is filled. 

The optional word 'SIGN' is no longer flagged as required in the 
following statement. ( CURRENCY 'SIGN' IS •>' ). 

SEARCH verb now functions correctly in virtual mode. 

Opening a sequential disk file with the OPEN EXTEND verb will now 
execute properly. 

An erroneous period in a SELECT statement will now be flagged as 
illegal. 

Writing to a sequential disk file with an invalid key clause will now 
be properly flagged as illegal. 



K - 7 September 1978 



APPENDIX K PDR3056 



REV. 15 PRIMOS AND UTILITIES 

At Rev. 15 many PRIMDS cormands and si±)systems have been enhanced. This 
part describes new features that may be of interest to the COBOL 
progranmer. 

The Virtual Loader (RMDDE) 



At Rev. 15, the virtual loader can be used to replace all copies of the 
loader mder PRIMDS IV, PRIMDS III, and 64K PRIMDS II. 

While functionality has been enhanced, the coimand format of the new 
Loader is the same as that of the old Loader. For the average COBOL 
application, the new Loader behaves exactly as the old Loader does; 
changes required should be minimal. 

• TempoTBocy File 

If additional buffer space is required by the Loader, buffers may be 
paged out of memory into a tanporary file which is opened when 
LOAD is first invoked and not closed until a QUIT or EXECUTE coranand 
is given. This tatporary file is opened in the HOME UFD, where the 
user reanains attached. For this reason, a conflict may result with 
existing cotimand files "counting" on a taraporary attach point; such 
cottnand files must be changed. 

If a BREZac or CNTL-P is used to exit from the loader, the temporary 
file will remain open on unit 4. The file should be deleted by the 
user after it has been closed. 

• Treenames 

The new Loader will accept either treenames or local file names. 

• Cotmand Files 

Coimand files using tertporary attach points must be modified. See 
Tgtiporary File above. 

Ccumand files using HILOAD must be modified. HIK)AD is no longer 
supported and should be changed to IDAD. 
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• SAving and Executing LOAD Programs 

Altiiough IDAD is a virtual loader, vdien possible it uses the actual 
memory locations referenced as its buffers. Programs lying entirely 
within its buffer space can be started by the EXECUTE camiand without 
first SAving the runfile. As delivered, the buffer space is all of 
memory below '122000. 

For most COBOL programs compiled in 64R mode, the user will be 
required to save the loaded image before executing. 

• Error ISfessages 

Error reporting for the new Loader has been improved over older 
versions to include short text descriptions; most, therefore, are self- 
explanatory. The following are of pcirticular interest to the COBOL 
laser: 

PRDGRAM-cayMDN OVERLAP - the inodule being loaded is attarpting to 
load code into an area reseirved for ccramon. Use the loader's CCSXIMON . 
ccmmand to increase the octal location of conmon (maximum setting is 
'177777). 

XXXXXX MULTIPLE INDIRECT - a module loading in 64R mode requires a 
second level of indirection at location XXXXXX. Insert a Mode D64R 
ccmnand in the load sequence. 

BASE SECTOR FULL - all locations in the sector zero base area have 
been used. Use the AUtanatic conraand to gaierate additional base areas. 

• EXAMPLES 

Load sequence for COBOL application without MIDAS (underlining 
indicates user input) : 

OK, IDAD invoke loader 

GO 

$ LO B-^PROGRAM load COBOL object file 

$ LI COBLIB load COBOL library 

$ LI load FORTRAN library 

I/3AD CCMPLETE load is complete 

$ SAVE *PKXSRAM save menory image 

$ QUIT return to PRIMDS 

OK, 
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Load sequence for large COBOL application, and/or one using MIDAS: 

OK, LOAD invoke loader 

GO 

$ f^D D64R set mode if program is large 

$ COtmM 'mm move comon out of the way 

$ ID B^PROGRAM load COBOL object file 

$ MJ 20 set autonatic base areas 

$ LI COBKID load COBOL MIDAS library 

$ IJ load FORTRAN library 

LOAD COMPLETE load is complete 

$ SAVE *PROGRAM save memory image 

$ QUIT return to PRBDS 

OK, 

NOTE : The map of the new loader has been reformatted. COMMON block 
names are now in a separate section of the map. Two numeric fields 
follow the cannon block name. The first is the location of the 
CCMyDN block. The second is the length of the CCMyDN block in octal, 
if this value is known. Such information is useful in determining 
v^ere to set COMiyDN for large applications. 

SEG Enhancements 

There are several enhancements to the SEG utility at Rev. 15. These should 
have little application to COBOL users except for the following: 

• Load times are significantly reduced- 

© Map format has been slightly changed. 8-character filenames are 
accepted, and the COMMON block section has been reformatted to 
include the length of the CCMNDN block, v^en known,' in octal. 

• All ccmtiands vAiich leave SEG's Loader (QUIT, RETURN, EXECUTE) now 
perform a SAVE function. 
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USIIK PRIMOS WITH NETWORKS (Rev. 15) 

Many Prime installations contain two or more processors connected in a 
network - a combination of communications hardware and PRIMOS software 
called PRIMENET. If your system is using PRIMENET, you can do the 
following : 



• LOGIN to a UFD on a remote system and use that CPU to do your 
processing. (Only terminal I/O is sent across the network.) 

• AITACH to directories on disk volumes connected to any other 
processor in the network, and access files in such directories. 
(File data is transmitted across the network; your local CPU 
does the processing.) 

• Enter a CX job in one of your local directories into the CX queue 
on another processor in the network. 

• Make sure a spool file is printed on your local spool queue (if 
more than one processor is running a spool queue) . 

In a network, the processor your terminal is connected to is your 
"local" processor, while all other processors are considered "remote". 
Each processor in the system is assigned a "nodename" during system 
configuration. You must know the nodenames of any remote processors 
you want to access. You may also need to know the local logical disk 
numbers of disks connected to remote processors. (Ihese are also 
assigned by your system operator during system configuration.) You can 
determine the nodename and local logical disk numbers for remote 
processors with the STATUS command (described later) . 

For more information on the inner workings of PRIMENET, see the System 
Administrator's Guide, IDR3109. PRIMENET also supports 
network-primitive subroutine calls for program-level communication 
between processes running on different processors. These subroutines 
are described in PTU52. 

Remote Login 

The LOGIN command accepts a nodename argument that enables you to log 
in to a remote system: 

LOGIN ufd-name [password] [-ON nodename] 

If -ON nodename is omitted, an attempt is made to log into ufd-name on 
the local system only. If nodename is the name of the local node, the 
login attempt is done locally without the use of PRIMENET. 

If the LOGIN command fails for any reason (e.g., NOT FOUND, NO RIGHT, 
BAD PASSWORD), the user's PRIMENET connection is broken, and the 
terminal is reconnected to the local process (not logged in) . 

On a terminal logged in to a remote processor, the command LOGOUT logs 
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out the process, breaks the remote connection over PRIMENET, and 
reconnects the terminal to its local process (not logged in) . Due to 
network delays , all input characters typed between the LOGOUT command 
and the response OK are discarded. 

Forced Logout 

The operator of the local processor system can enter the supervisor 
terminal command 

LOGOUT -userno 

to force the logout of a specified user connected via PRIMENET. userno 
is the number of a local user process, as shown in the NO column of a 
STATUS USERS listing (described later) . 

This command unconditionally logs out the specified user and returns 
the process to a pool of available remote login server processes; the 
PRIMENET connection for this terminal/process is broken, and the 
terminal is reconnected to its local process (not logged in) . 

Network Information in STATUS Printouts 

The STATUS command prints network-related information that identifies 
local and remote user numbers, logical and physical disk assignments, 
and line number assignments. 

STATUS USERS distinguishes between local and remote users: 

OK, STATUS USERS 



USER 


NO 


LIN 


PDEVS 


PENNY 


7 


5 


50460 


CLEMLI 


11 


11 


21460 


SUREN 


12 


12 


61060 


DOUG.V 14 


14 


61060 


DOUROS 


17 


17 


61060 


BD 


20 


22 


10460 


COi'iON 


21 


23 


21460 


HANIF 


22 


24 


61060 


HOWIEC 


26 


30 


10460 


EMBERS 


28 


32 


21460 


TEKMAN 


29 


33 


50460 


TEKMAN 


30 


34 


50460 


LINDA 


32 


36 


61060 


TEKMAN 


33 


37 


50460 


SPORER 


39 


45 


21460 


BARRIE 


40 


46 


21460 


MAGGIE 


41 


47 


50460 


TEKMAN 


43 


51 


50460 


BD 


45 


53 


460 21460 


STEVEN 


49 


75 


10460 (FROM SYSD 


SYSTEM 


57 


77 


460 


FAM 


58 


77 


460 (2) 



USR#43) 
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SYSTEM 59 77 61060 
SYSTEM 62 77 460 

This example shows that user STEVEN is local user number 49, is a 
remote login on line 75 (one of the PRIMENET lines) , is currently 
accessing local physical device 10460, and is logged in from nodename 
SYSD, where he is user number 43. 

STATUS DISKS now shows logical disk number assignments for the local 
system, including disk volumes on other nodes: 

OK, STATUS DISKS 



DISK LDEV PDEV SYSN 



SPOOLH 





460 




PERIPH 


1 


10460 




CPUGRP 


2 


21460 




DOCUMN 


3 


50460 




PRI550 


4 


61060 




SPOOLS 


5 


460 


SYSB 


SOFTWR 


6 


3462 


SYSB 


DETEST 


7 


71063 


SYSB 



M150A1 10 60460 SYSB 

M150B1 11 70460 SffiB 

SPOOLD 12 460 SYSD 

TRANS 13 21460 SYSD 



DBGRP 


14 


51060 


SYSD 


TEST 


15 


71061 


SYSD 


DTEST 


16 


2062 


SYSD 



This example shows the status of a three-node system. The first two 
columns are the packnames and logical device numbers for the local 
system, and the fourth column shows the nodenames of the remote 
processors. 

The STATUS NETWORK canmand gives the names and states of all nodes in 
the network: 

OK, STATUS NETWORK 



SMLC NETWORK 

NODE STATE 
HARCWR **** 
RSRCHl UP 

IPC NETWORK 

NODE STATE 
HARDWR **** 
SYSB UP 

SYSD UP 
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TBiis shows the state of a four-node network as it would be printed for 
a local user on the HARDWR node. The UP state means that the node is 
configured and functioning. 

Attaching to Reniote Directories 

To attach to a directory located in a disk volume at another node, 
specify the logical disk number of the remote disk (determined from a 
STATUS DISKS printout) as the Idisk parameter of the ATTACH command: 

ATTACH directory [password] [Idisk] [key] 

If Idisk is not specified, the attempt to ATTACH to the remote disk 
will work only if there is no directory of the same name on a lower 
logical device number. 

Selecting CX Queues on O ther Nodes 

The CX command line now allows you to place jobs on, or check status 
of, the CX queue on a remote system: 

CX /filename \ [-ON Idisk] 
(option / 

Idisk is the (local) logical disk number of a remote disk containing a 
CX queue. 

Selecting Home Spool Queue 

In a network with more than one spool queue in operation, any SPOOL 
request is intercepted by the first spooler which is ready to accept a 
job and has the right form type. To make sure the printout takes place 
on your local spooler, use the -HOIE argument in the SPOOL COMMAND: 

SPOOL filename [-HOME] 



MODIFIED COMMANDS AND SUBSYSTEMS 

Commands and subsystems that have user-visible changes at Rev. 15 are 
described below in alphabetical order. (See the preceding section on 
networks for changes to ATTACH, CX, LOGIN,, and SPOOL.) 



DELSEG 

DELSEG is an internal conmand v^ich releases segments assigned to the 
user by SEG. The command format is: 

DELSEG feegno 
\ ALL 

where segno is the number of the segment to be freed. segno must be 



REV. A K - 14 



PDR3056 REVISION 15 COBOL 

greater than or equal to 2000 (octal) and not equal to 6000 (octal) . 
Specifying ALL as the argument frees all segments assigned to the user 
issuing the ccaranand. Deleting an already nonexistent segment has no 
effect. Attempting to delete an illegal segment number yields the 
error message BAD PARAMETER. 



FUTIL 

Three new commands have been put into FUTIL at Revision 15. These 
commands are SmiDC, TRESRW and UFDSRW. They set the per-file 
read-write lock for a file, a tree, and all files in the current UFD, 
respectively. The format of these commands correspond to the format of 
the protect-class commands, i.e.: 

SRWLOC filename lock-number 
TRESRW pathname lock-number 
UFDSRW lock-number n-levels 

lock-number is the read-write lock. If omitted, is the default. 
n-levels is the number of levels to go down doing the setting. The 
read-write lock is interpreted as follows: means use the system 
read-write lock, 1 means allow multiple readers or one writer, 2 means 
allow multiple readers and one writer, 3 means allow multiple readers 
and multiple writers. 

Tt) output a file's read-write lock, use the RWLOCK option in the LISTF 
command in FUTIL. A read-write lock of appears as "SYS", 1 appears 
as "W/NR", 2 appears as "IWNR", and 3 is shown by "NWNR". 

FOTIL now ignores null lines and accepts lower case input. However, 
passwords must be entered in the same case as they were assigned. 

The CLEAN command no longer leaves protection for files below current 
level at 7 0. Instead, it leaves them the way they were. 

Volume names or numbers used as a prefix (i.e., beginning with <) must 
now also end with >. 

The first digit of a segment directory file or sub-segment directory, 
(i.e., the first digit of the number in parentheses) must be a digit. 

MIDAS 

MIDAS for Rev. 15 contains no new features. The only enhancement to 
MIDAS has been the creation of a version of MIDAS which can be shared 
on the Prime 400 (or higher) for V-mode programs. For details, see 
pru54. 



SORT 

Sort accepts upper and lower case characters. Lower case characters 
are sorted as if they were upper case, but they appear as lower case 
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characters in the output file. 

TERM COMMAND 

The TERM command is a useful tool to control the duplex of a terminal 
as well as setting the kill and erase characters and enabling or 
disabling the BREAK key or enabling the X-ONA-OFF option. The command 
line for the REV. 15 TERM coiimand will look for options to h»e preceded 
by a dash (-) , the old way (options without the dash) will still work 
for compatibility. Ihe rest of this document will be dedicated to 
explainir^ the different command line formats for the TERM command. 

A.) TERM 

Typing TERM without any options will have the program print a 
general list of possible command line formats. 

B.) TERM -ERASE (char) 

This will set the erase character from its current value to that 
of char which is specified in the command line. 

C. TERM -KILL (char) 

This will set the kill character from its current value to that of 
char vi*iich is specified in the command line. 

Note ; 

char must be a single character and the parenthesis are not 
to be specfied. 

D.) TERM -BREAK ON 

this enables the BREAK or [CONTRL-P] key. 

E.) TERM -BREAK OFF 

Ihis disables the BREAK or [CONTRL-P] key. 

F.) TERM -HALF -[XOFF or NOXOFF] - [LF or NOLF] 

The parameters in the brackets are optional. Ihe HALF duplex key 
will not echo back input from the terminal. The NOLF will not echo a 
line feed after a carriage return. A LF will echo a line feed after a 
carriage return. An XOFF will enable the X-OFF/X-ON feature, a NOXOFF 
will disable the X-OFF/X-ON feature. If the [XOFF or NOXOFF] option is 
omitted the TERM command will default to the state of the X-OFF/X-ON 
that existed before the TERM command was invoked. When enabled, 
CCNTRDL-S performs the X-OFF and CCM?ROL-Q the X-ON function. 

G.) TERM -FULL -[XOFF or NOXOFF] 
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The FULL duplex key will echo back input from the keyboard to the 
terminal screen. The [XOFF or NOXOFF] feature will work as described 
in paragraph F. 

H.) TERM -[XOFF or NOXOFF] 

This form will set the terminal to FULL duplex (default value) and 
enable or disable the X-OFF/X-ON according to the specified command in 
the command line. 

I.) TERM -DISPLAY 

This format will print out the terminal's kill and erase 
chacacters as well as whether the terminal is in full or half duplex or 
if the X-ON/X-OFF feature is enabled, or if an X-OFF (CCNTRL-S) has 
been received. 

SHARED LIBRARIES 

At Rev. 15 certain V-Mode libraries can be established as shared 
libraries by the System Administrator. For more information see the 
Rev. 15 version of IDR3109, the System ADministrator ' s Guide. 
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